\begin{Schunk}
\begin{Sinput}
 N <- 200
 x <- runif(N, 0, 45)
 y <- 2 + 0.1 *x + 0.5 * rnorm(N)
 plot(y ~ x, xlab = "One Mysterious Predictor", ylab="An Output Variable")
\end{Sinput}
\end{Schunk}
