lambda = 2
y = rpospois(n=1000, lambda)
table(y)
mean(y)  # Sample mean
lambda / (1-exp(-lambda)) # Population mean
(i = dpospois(0:7, lambda))
cumsum(i) - ppospois(0:7, lambda)  # Should be 0s
table(rpospois(100, lambda))
table(qpospois(runif(1000), lambda))
round(dpospois(1:10, lambda) * 1000) # Should be similar
x = 0:7
barplot(rbind(dpospois(x, lambda), dpois(x, lambda)),
        beside = TRUE, col = c("blue","green"),
        main=paste("Positive Poisson(", lambda, ") (blue) vs",
        " Poisson(", lambda, ") (green)", sep=""),
        names.arg = as.character(x), las=1, lwd=2)Run the code above in your browser using DataLab