\begin{Schunk}
\begin{Sinput}
 rWishart(1, df = N - 1, Sigma = Sigma)
\end{Sinput}
\begin{Soutput}
, , 1

          [,1]       [,2]      [,3]       [,4]
[1,] 1027.3948   993.9768  4263.393  2906.1633
[2,]  993.9768  3872.0724 -1459.308   937.0922
[3,] 4263.3930 -1459.3083 48596.057  6467.7721
[4,] 2906.1633   937.0922  6467.772 15680.1347
\end{Soutput}
\end{Schunk}
