\begin{Schunk}
\begin{Sinput}
 x <- rgamma(100, 1.5, 2.2)
 y <- rnorm(100) + 0.2 * x
 pdf("output/scatter1.pdf", height=6, width=6, paper="special")
 plot(y ~ x, main="Scatterplot or Bust!")
 dev.off() #turns off pdf output device
\end{Sinput}
\end{Schunk}
