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