powered by
dzib(x, size, prob, pi, log = FALSE) pzib(q, size, prob, pi, lower.tail = TRUE, log.p = FALSE) qzib(p, size, prob, pi, lower.tail = TRUE, log.p = FALSE) rzib(n, size, prob, pi)
0 < prob <= 1<="" code="">.=>
length(n) > 1
Binomial
x <- rzib(1e5, 10, 0.6, 0.33) xx <- -2:20 plot(prop.table(table(x)), type = "h") lines(xx, dzib(xx, 10, 0.6, 0.33), col = "red") plot(ecdf(x)) lines(xx, pzib(xx, 10, 0.6, 0.33), col = "red")
Run the code above in your browser using DataLab