xtintreg_d2.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 43 行

*! Version 1.0.1  25jan2005
program define xtintreg_d2
	version 8.0
	args todo  b lnf g negH
	if "`g'"=="" {
		tempname g
	}
	if "`negH'" == "" {
		tempname negH
	}
	tempname lnfv
	capture generate `lnfv' = 0
	tempvar theta1 sigmav
	mleval `theta1' = `b', eq(1)
	local 0 [$ML_wtyp $ML_wexp]
	syntax [fw aw pw iw/]
	local w `exp'
	local blast = colsof(`b') 
	xt_iis /* get i variable from xt settings */
	local ivar `s(ivar)'
	tempvar p
	gen long `p' = _n 
	qui summ `p' if $ML_samp
	local jbeg = r(min)
	local jend = r(max)
	/* $ML_xc1 is noconstant if noconstant has been specified */
	if ("$ML_xo1" != "") {
		local off offset($ML_xo1)
	}
 	_XTLLCalc  $ML_y $ML_x1 in `jbeg'/`jend', 			///
		xbeta(`theta1') w(`w') lnf(`lnfv') b(`b') g(`g')        ///
		negH(`negH') quad($XTI_quad) ivar(`ivar')               ///
		cvar($XTI_cvar) $ML_xc1 	                        ///
	shat($XTI_shat) hh($XTI_hh) todo(`todo') intreg `off'
	scalar `lnf' = `lnfv'[`jend']
	local gck = matmissing(`g')
	local negHck = matmissing(`negH')
	if ((`gck'==1) | (`negHck' == 1)){
		scalar `lnf' = .
	}
end