\begin{Schunk}
\begin{Sinput}
 fit2 <- loess(y~x,span=0.5)
 pred2 <- fit2$fitted
 plot(x,y, main="loess with span=0.5",ylim=c(-6,6))
 lines(x, pred2)
\end{Sinput}
\end{Schunk}
