\begin{Schunk}
\begin{Sinput}
 mymat <- matrix(c(1,1,1,1), ncol = 2)
 layout(mat = mymat)
 hist(x,main = "Default hist(x)")
\end{Sinput}
\end{Schunk}
