\begin{Schunk}
\begin{Sinput}
 x <- rpois(1000, lambda = 108);
 y <- rnorm(1000, m = x, sd = 10);
 par(mfcol = c(1,3))
 hist(x, main = "Default hist(x)")
 hist(y, main = "Default hist(y)")
 plot(x, y, main = "Scatterplot x, y")
\end{Sinput}
\end{Schunk}
