* CLOGLOG-POISSON HURDLE LOG-LIKELIHOOD: Joseph Hilbe: 26Sep2005
program jhpoi_cln_ll
  version 9.1
  args lnf beta1 beta2
  tempvar pi mu
  qui gen double `pi' = exp(`beta1')
  qui gen double `mu' = exp(`beta2')
  qui replace `lnf' = cond($ML_y1==0, -`pi',   ///
    ln(1-exp(-`pi')) -`mu' + $ML_y1 * `beta2'  ///
    - lngamma($ML_y1 + 1) - ln(1 - exp(-`mu')) )

end