_svy_check_fpc.ado

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

*! version 1.0.0  02nov2004
program _svy_check_fpc, sort
	args touse fpc strata

	if ("`fpc'" == "") exit

	sort `touse' `strata'
	capture by `touse' `strata': assert `fpc' == `fpc'[1] if `touse'
	if c(rc) {
		if "`strata'" == "" {
			local within " within strata"
		}
		di as err "FPC is not constant`within'"
		exit 459
	}
end
exit