_isfit.ado

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

*! version 1.0.2  05sep2001
program define _isfit /* cons */
	version 7
	if "`e(cmd)'" == "anova" {
		if "`1'"!="anovaok" & "`2'"!="anovaok" {
			di as err "not appropriate after anova"
			exit 301
		}
	}
	else if "`e(cmd)'"!="fit" & "`e(cmd)'"!="regress" {
		error 301
	}
	if "`e(model)'"!="ols" {
		di as err "not appropriate after IV estimation"
		exit 301
	}
	if "`1'"=="cons" | "`2'"=="cons" { 
		if "`e(cmd)'" == "anova" {
			anovadef
			if "`r(tid1)'" != "1" {
				di as err "not appropriate after anova, nocons"
				exit 301
			}
		}
		else {
			capture local b = _b[_cons]
			if _rc { 
				di as err /*
				   */ "not appropriate after regress, nocons"
				exit 301
			}
		}
	}
end