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
Zero-inflated Negative Binomial
// 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))
}
