powered by
dzip(x, lambda, pi, log = FALSE) pzip(q, lambda, pi, lower.tail = TRUE, log.p = FALSE) qzip(p, lambda, pi, lower.tail = TRUE, log.p = FALSE) rzip(n, lambda, pi)
length(n) > 1
Poisson
x <- rzip(1e5, 6, 0.33) xx <- -2:20 plot(prop.table(table(x)), type = "h") lines(xx, dzip(xx, 6, 0.33), col = "red") plot(ecdf(x)) lines(xx, pzip(xx, 6, 0.33), col = "red")
Run the code above in your browser using DataLab