http://snippets.dzone.com/posts Thu, 24 Jul 2008 18:31:15 GMT DZone Snippets: distribution code http://snippets.dzone.com/posts/show/1881 // Simulates a zero-inflated, negative binomial <br />// from Ben Bolker <br /> <br /><code> <br />rzinbinom <- function(n, mu, size, zprob) { <br /> ifelse(runif(n) < zprob, 0, rnbinom(n, mu=mu, size=size)) <br />} <br /></code> Mon, 10 Apr 2006 22:51:35 GMT http://snippets.dzone.com/posts/show/1881 mroutley (Matthew Routley)