DZone Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

Snippets has posted 5883 posts at DZone. View Full User Profile

Zero-inflated Negative Binomial

04.10.2006
| 3699 views |
  • submit to reddit
        // Simulates a zero-inflated, negative binomial
// from Ben Bolker

rzinbinom <- function(n, mu, size, zprob) {
  ifelse(runif(n) < zprob, 0, rnbinom(n, mu=mu, size=size))
}