*! version 1.0 14Dec1997 Joseph Hilbe  STB-47 sg102
* LL for 0-truncated Poisson regression
program define trpoislf
        local lnf "`1'"
        local I "`2'"
        local depvar="$S_mldepn"
	if "$S_mloff" != "" {	
		tempvar Io
		qui gen double `Io' = `I' + $S_mloff
	}
	else    local Io "`I'"
        #delimit ;
        quietly replace `lnf'= -exp(`Io')+`depvar'*`Io' -
          lngamma(`depvar'+1) - ln(1-exp(-exp(`Io')));
        #delimit cr
end