xtintreg_d2.ado

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

*! Version 1.0.2  24jun2005
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 */
	/* offset is taken care of in theta1 */
 	if "$XTI_noadap"=="" {
		_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 avar($XTI_qavar) wvar($XTI_qwvar)
	}
	else {
		_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 $XTI_noadap			///
		todo(`todo') intreg avar($XTI_qavar) wvar($XTI_qwvar)
	}
	scalar `lnf' = `lnfv'[`jend']
	local gck = matmissing(`g')
	local negHck = matmissing(`negH')
	if ((`gck'==1) | (`negHck' == 1)){
		scalar `lnf' = .
	}
end