\begin{Schunk}
\begin{Sinput}
 with(dat, scatter.smooth( height, weight))
 abline(mod1, lwd = 0.7, lty = 2)
 legend("topleft", legend = c("loess","OLS"), lwd = c(1,0.7), lty = 1:2)
\end{Sinput}
\end{Schunk}
