\begin{Schunk}
\begin{Sinput}
 hist(samp, prob = T, breaks = 20, xlab = "Normal Sample Means", 
     xlim = c(-10, 110), ylim = c(0, 1), main = "")
 legend("topleft", legend = c(paste("mean of means=", 
     round(mean(samp), 3)), paste("sd of means=", 
     round(sd(samp), 3))))
\end{Sinput}
\end{Schunk}
