\begin{Schunk}
\begin{Sinput}
 X <- matrix(1:24, nrow = 6, ncol = 4, dimnames = list(NULL, c("Den", "KC", "Oak", "SD")))
 X
\end{Sinput}
\begin{Soutput}
     Den KC Oak SD
[1,]   1  7  13 19
[2,]   2  8  14 20
[3,]   3  9  15 21
[4,]   4 10  16 22
[5,]   5 11  17 23
[6,]   6 12  18 24
\end{Soutput}
\end{Schunk}
