RG#104: Rootogram plot

require(latticeExtra)
require(lattice)

library(lattice)

set.seed(1234)
x1 <- rpois(1000, lambda = 25)

plt <- rootogram(~x1, dfun = function(x) dpois(x, lambda = 25))
plt