*! version 1.0.0 25Sep2005 * 0-Truncated geometric regression: log likelihood function :Joseph Hilbe program define jhzgeo_ll version 9.1 args lnf xb tempvar mu qui gen double `mu' = exp(`xb') qui replace `lnf' = $ML_y1*ln(`mu') - (1 + $ML_y1)*ln(1+`mu') - /// ln(1 + ln(1+`mu')) end