\begin{Schunk}
\begin{Sinput}
 plot(y ~ x, col = gray(.50), xlab = "One Mysterious Predictor", ylab="An Output Variable")
 m1 <- lm(y ~ x)
 abline(m1, lwd = 2)
 legend("topright", legend=c("OLS Predicted value"), lty = 1)
\end{Sinput}
\end{Schunk}
