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