\begin{Schunk}
\begin{Sinput}
  un1 <- replicate(1000, mean(runif(500)))
  hist(un1,xlim=c(0,1), prob= TRUE, xlab="x", main="Means with N=500")
\end{Sinput}
\end{Schunk}
