R/loglikNB1.R

Defines functions `loglikNB1`

`loglikNB1` = 
function(iphi, lmu, y){
  logL = sum(
  (lgamma(y + iphi) - lgamma(iphi) - lgamma(y + 1) +  y * lmu) - 
  (iphi + y) * log(iphi + exp(lmu)) + iphi * log(iphi)
  )
  
  return(logL)
}

Try the rxSeq package in your browser

Any scripts or data that you put into this service are public.

rxSeq documentation built on May 1, 2019, 11:31 p.m.