\begin{Schunk}
\begin{Sinput}
 muhatsd <- sd(muhat)
 stderr.theoretical
\end{Sinput}
\begin{Soutput}
[1] 1.224745
\end{Soutput}
\begin{Sinput}
 muhatsd - stderr.theoretical
\end{Sinput}
\begin{Soutput}
[1] -0.009331123
\end{Soutput}
\end{Schunk}
