\begin{Schunk}
\begin{Sinput}
 set.seed(123)
 muhat <- vapply(1:10000, getSampleMean, N = 150, M = mu, SD = sigma, numeric(1))
\end{Sinput}
\end{Schunk}
