\begin{Schunk}
\begin{Sinput}
 mx <- mean(myx, na.rm = TRUE)
 sdx <- sd(myx, na.rm = TRUE)
 sdx <- round(sdx, 3)
\end{Sinput}
\end{Schunk}
