\begin{Schunk}
\begin{Sinput}
  plot(y ~ x, data=datols)
  abline(myolsmod)
  legend("topleft", legend=c("OLS Fit"), lty=1, col=1)
\end{Sinput}
\end{Schunk}
