|
using reg as an example,
reg y x
predict xb
mat F=e(F)
predict r, r
tempfile f1
save `f1'
use `f1'
cap prog drop bootsRegF
prog def bootsRegF, rclass
preserve
bsample
gen new_y = xb+r
* if treating x as fixed
reg new_y x
*reg y x
return sca F = e(F)
restore
end
local iter = 20
mat R = J(`iter',4,.)
qui forv i=1/`iter' {
if `i' == 1 {
noi _dots 0
}
noi _dots `i' 0
drop _all
use `f1'
set seed `i'
simulate F=r(F), reps(20) : bootsRegF
bstat, stat(F)
mat b=e(b)
mat b_bs=e(b_bs)
mat se = e(se)
mat R[`i',1] = `i'
mat R[`i',2] = b[1,1]
mat R[`i',3] = b_bs[1,1]
mat R[`i',4] = se[1,1]
}
drop _all
svmat R
rename R1 seed
rename R2 est
rename R3 bs_est
rename R4 bs_se
|