pcorr.ado

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

*! version 2.2.10  29sep2004
program define pcorr, byable(recall)
	version 6, missing
	syntax varlist(min=3 ts) [aw fw] [if] [in]
	marksample touse
	local weight "[`weight'`exp']"
	quietly reg `varlist' `weight' if `touse'
	if (e(N)==0 | e(N)>=.) { error 2000 }
	di in gr "(obs=" e(N) in gr ")"
	local NmK = e(df_r)
	tokenize `varlist'
	di _n in gr "Partial correlation of `1' with" _n
	di in smcl in gr "    Variable {c |}    Corr.     Sig." _n /*
	*/ "{hline 13}{c +}{hline 18}"
	mac shift
	while ("`1'"!="") { 
		quietly test `1'
		if (r(F)>=.) {
		       di in smcl in gr %12s abbrev("`1'",12) " {c |} (dropped)"
		}
		else {
			local s "1"
			if (_b[`1']<0) { local s "-1" }
			di in smcl in gr %12s abbrev("`1'",12) " {c |}" in ye/* 
			*/ %9.4f `s'*sqrt(r(F)/(r(F)+`NmK')) /*
			*/ in yel %9.3f tprob(`NmK',sqrt(r(F)))
		}
		mac shift
	}
end