\begin{Schunk}
\begin{Sinput}
 fit1 <- locfit(y~lp(x,nn=0.5)) 
 plot(fit1,main="Local fitting, 0.5 nearest neighbors included",ylim=c(-6,6))
 points(x,y)
\end{Sinput}
\end{Schunk}
