\begin{Schunk}
\begin{Sinput}
 ## Recall
 mu
\end{Sinput}
\begin{Soutput}
[1] 100
\end{Soutput}
\begin{Sinput}
 sigma
\end{Sinput}
\begin{Soutput}
[1] 15
\end{Soutput}
\begin{Sinput}
 trunc.hat <- vapply(1L:10000L, getEstimates, N = 150, M = mu, SD = sigma, numeric(4))
 trunc.hat[ , 1:3]
\end{Sinput}
\begin{Soutput}
            [,1]       [,2]       [,3]
rep    1.0000000  2.0000000  3.0000000
mean  94.1130062 95.1492024 93.5446341
sd     8.1099243  6.7194443  9.6017264
sterr  0.6621726  0.5486403  0.7839777
\end{Soutput}
\end{Schunk}
