\begin{Schunk}
\begin{Sinput}
   myolsmod <- lm(y ~ x, data=datols)
   plot(myolsmod)
\end{Sinput}
\end{Schunk}
