meanlog = 0.5; sdlog = 0.5
y = 0:19
proby = dpolono(y, m=meanlog, sd=sdlog)
plot(y, proby, type="h", col="blue", las=1, ylab="P[Y=y]", log="",
main=paste("Poisson lognormal(meanlog=",meanlog,", sdlog=",sdlog,")",
sep=""))
sum(proby) # Should be 1
y = rpolono(n=1000, m=meanlog, sd=sdlog)
table(y)
hist(y, breaks=((-1):max(y))+0.5, prob=TRUE)
Run the code above in your browser using DataLab