glim_v1.ado

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

*! version 1.0.1  28apr2000
program define glim_v1
	version 7
	args todo eta mu return

	if `todo' == -1 {			/* Title */
		global SGLM_vt "Gaussian"
		global SGLM_vf "1"
		global SGLM_mu "*"		
		exit
	}
	if `todo' == 0 {			/* Initialize eta */
		gen double `eta' = `mu'
		exit
	}
	if `todo' == 1 {			/* V(mu) */
		scalar `return' = 1 
		exit 
	}
	if `todo' == 2 {			/* (d V)/(d mu) */
		scalar `return' = 0 
		exit
	}
	if `todo' == 3 {			/* deviance */
		local y "$SGLM_y"
		if "`y'" == "" {
			local y "`e(depvar)'"
		}
		gen double `return' = (`y'-`mu')^2
		exit
	}
	if `todo' == 4 {			/* Anscombe */
		local y "$SGLM_y"
		if "`y'" == "" {
			local y "`e(depvar)'"
		}
		gen double `return' = (`y'-`mu')
		exit
	}
	if `todo' == 5 {			/* ln-likelihood */
		local y "$SGLM_y"
		if "`y'" == "" {
			local y "`e(depvar)'"
		}
		tempname sig2
                if $SGLM_s1 {
                        scalar `sig2' = $SGLM_s1
                }
                else {
			scalar `sig2' = $SGLM_ph*(($ML_N-$ML_k)/$ML_N)
                }
		gen double `return' = -.5*((`y'-`mu')^2/`sig2' + /*
			*/ ln(2*_pi*`sig2'))
		exit
	}
	if `todo' == 6 {		/* Adjustment to deviances */
		gen double `return' = 0
		exit
	}	noi di as err "Unknown call to glim variance function"
	error 198
end