\begin{Schunk}
\begin{Sinput}
 mymat <- matrix(c(1,2,4,1,0,0,1,3,5), nrow = 3)
 layout(mat = mymat)
 layout.show(5)
\end{Sinput}
\end{Schunk}
