\begin{Schunk}
\begin{Sinput}
 U <- rnorm(4)
 t(Sigma.R) %*% U
\end{Sinput}
\begin{Soutput}
           [,1]
[1,]  1.0043454
[2,]  1.1323207
[3,] -0.2700273
[4,]  6.0836861
\end{Soutput}
\end{Schunk}
