dotpospois(1:20, 0.5)
rotpospois(20, 0.5)
if (FALSE) lambda <- 4; x <- 1:10
plot(x, dotpospois(x, lambda = lambda), type = "h", ylim = 0:1,
sub = "lambda=4", las = 1, col = "blue", ylab = "Probability",
main = "1-truncated positive-Poisson distn: blue=PMF; orange=CDF")
lines(x+0.1, potpospois(x, lambda), col = "orange", lty=3, type = "h")
Run the code above in your browser using DataLab