_rotate_clear.ado

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 1.0.0  28feb2005
*  clears all r_* field in e()
program _rotate_clear, eclass
	version 8

	syntax

	foreach m in `:e(macros)' `:e(scalars)' `:e(matrices)' {
		if substr("`m'",1,2) == "r_" {
			local to_drop `to_drop' e(`m')
		}
	}

	if "`to_drop'" != "" {
		mata: Dropthemnow("`to_drop'")
	}
end

mata
void function Dropthemnow( string scalar _s )
{
	real scalar   i
	string matrix s

	if (_s != "") {
		s = tokens(_s)
		for (i=1; i<=cols(s); i++) {
			st_global(s[i], "")
		}
	}
}
end

exit