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