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