*坦白说,这不一定对,因为我不知道您修改这程序要做什么。
*请参考以下程序,能运作,但不确定对不对。
use http://www.ats.ucla.edu/stat/data/hsb2, clear
rename science y
rename math x
rename read m
rename write w
rename socst z
quietly summarize w
global m=r(mean)
global s=r(sd)
generate wx=w*x
capture program drop bootm1
program bootm1, rclass
reg m x w wx
scalar a1=(_b[x]+($m-$s)*_b[wx])
scalar a2=(_b[x]+($m)*_b[wx])
scalar a3=(_b[x]+($m+$s)*_b[wx])
nbreg y m x w wx
return scalar cielw = a1*_b[m]
return scalar ciemn = a2*_b[m]
return scalar ciehi = a3*_b[m]
end
bootstrap r(cielw) r(ciemn) r(ciehi), reps(5) nodots: bootm1
*为快速测试能运作,只设reps(5),一般实证请至少设定500以上,但可能要一些时间


雷达卡





京公网安备 11010802022788号







