\begin{Schunk}
\begin{Sinput}
 X1 <- matrix(1:12, nrow = 2)
 X1
\end{Sinput}
\begin{Soutput}
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    3    5    7    9   11
[2,]    2    4    6    8   10   12
\end{Soutput}
\begin{Sinput}
 X2 <- matrix(13:24, ncol = 2)
 X2
\end{Sinput}
\begin{Soutput}
     [,1] [,2]
[1,]   13   19
[2,]   14   20
[3,]   15   21
[4,]   16   22
[5,]   17   23
[6,]   18   24
\end{Soutput}
\begin{Sinput}
 X1 %*% X2
\end{Sinput}
\begin{Soutput}
     [,1] [,2]
[1,]  593  809
[2,]  686  938
\end{Soutput}
\end{Schunk}
