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

          [,1]       [,2]      [,3]       [,4]
[1,]  963.5219   904.8346  4077.600  2689.9585
[2,]  904.8346  3905.8417 -1584.001   455.8215
[3,] 4077.6003 -1584.0012 49089.373  4401.6478
[4,] 2689.9585   455.8215  4401.648 16211.4643
\end{Soutput}
\end{Schunk}
