Last chance! 50% off unlimited learning
Sale ends in
phi
.dzipois(x, lambda, phi = 0, log = FALSE)
pzipois(q, lambda, phi = 0)
qzipois(p, lambda, phi = 0)
rzipois(n, lambda, phi = 0)
dzipois
gives the density,
pzipois
gives the distribution function,
qzipois
gives the quantile function, and
rzipois
generates random deviates.dpois
,
zipoisson
,
rzinegbin
.lambda = 3; phi = 0.2; x = (-1):7
(ii = dzipois(x, lambda, phi))
max(abs(cumsum(ii) - pzipois(x, lambda, phi))) # Should be 0
table(rzipois(100, lambda, phi))
table(qzipois(runif(100), lambda, phi))
round(dzipois(0:10, lambda, phi) * 100) # Should be similar
x = 0:10
barplot(rbind(dzipois(x, lambda, phi), dpois(x, lambda)),
beside = TRUE, col = c("blue","green"),
main=paste("ZIP(", lambda, ", phi=", phi, ") (blue) vs",
" Poisson(", lambda, ") (green)", sep=""),
names.arg = as.character(x))
Run the code above in your browser using DataLab