\begin{Schunk}
\begin{Sinput}
   hist(0.5+rpois(100, lambda = 3), xlim = c(0.5, 10.5), prob = TRUE, xlab = "x", main = "Poisson Sample N=100")
   points(xseq+0.5, xdpois, lty=4)
\end{Sinput}
\end{Schunk}
