\begin{Schunk}
\begin{Sinput}
 plot(pred2, pred1$fit, main="Compare locfit and loess with span=0.5", xlab="loess predictions", ylab="locfit predictions", ylim=c(-6,6))
\end{Sinput}
\end{Schunk}
