\begin{Schunk}
\begin{Sinput}
 layout(mat = mymat)
 hist(x, main = "Default hist(x)")
 hist(y, main = "Default hist(y)")
 plot(x, y, main = "Scatterplot x, y")
 plot(x, y, main = "Top Right Corner of Scatter", xlim = c(mean(x), max(x)), ylim = c(mean(y),max(y)))
 plot(x, y, main = "Bottom Left Corner of Scatter", xlim = c(min(x), mean(x)), ylim = c(min(y), mean(y)))
\end{Sinput}
\end{Schunk}
