poiss_lf.ado

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

*! version 1.0.1  09jan1999
program define poiss_lf
        version 6
	args todo b lnf g H score
        tempvar xb
	mleval `xb' = `b'
	mlsum `lnf' = -exp(`xb') + `xb'*$ML_y1 - lngamma($ML_y1+1)

	if `todo' == 0 | `lnf'==. { exit }

	qui replace `score' = $ML_y1 - exp(`xb') if $ML_samp
	mlvecsum `lnf' `g' = `score'

	if `todo' == 1 | `lnf'==.  { exit }

	mlmatsum `lnf' `H' = exp(`xb')
end