在Stata的循环内运行程序

Question

我试图在循环中运行一个程序，但我得到了

-Break--
r(1);

这是我的脚本：

 clear all
    forvalues i=1/5{
    sysuse auto if rep78==`i'
    capture program drop testpro
    program define testpro,eclass
    preserve 

    tabstat price mpg headroom,stat(mean) save
    mat avg=r(StatTotal)
    ereturn post avg
    restore 
    end
    }
    --Break--
    r(1);

    end of do-file

    --Break--
    r(1);

我们将非常感谢您在这方面的任何帮助。

Answer 1

这里有几个问题。一方面，您不能在 sysuse 中使用 if 子句，这与 use 不同。

无需在循环的每次迭代中重新定义程序。定义它，然后循环。

我也不确定您为什么需要一个程序，但这只是个人喜好问题，或者这只是一个教学示例。

下面代码中的命令estadd 是SCC 的estout 套件的一部分。

clear all

capture program drop testpro
program define testpro, eclass
tabstat price mpg headroom, stat(mean) save
quietly estadd matrix avg = r(StatTotal), replace
end

forvalues i=1/5 {
    sysuse auto, clear
    keep if rep78==`i'
    testpro
    matrix list e(avg)
}