\begin{Schunk}
\begin{Sinput}
   m2000 <- replicate(1000, mean(rpois(2000, lambda = 3)))
   hist(m2000, xlim = c(0.5, 10.5), prob = TRUE, xlab = "x", main = "Means with N=2000")
\end{Sinput}
\end{Schunk}
