Code:
capture program drop make_stars
program define make_stars, rclass
if `1'<=0.01 {
local star "***"
}
else if `1'<=0.05 {
local star "**"
}
else if `1''<=0.1 {
local star "*"
}
else {
local star " "
}
return local star `star'
end
foreach dv in var1 var2 {
reg `dv' D
local d_`dv'=e(df_r)
local p_`dv'=2*ttail(`d`dv'',abs(_b[D]/_se[D]))
make_stars `p_`dv''
local star_m`dv' `r(star)'
}
0 Response to R Class Program
Post a Comment