\begin{Schunk}
\begin{Sinput}
 x3 <- seq(0,10,length=200)
 xprime <- 4
 bandwidth <- 3.1
 weight <- (1- (abs((x3-xprime)/bandwidth))^3)^3
 weight <- ifelse(abs(xprime-x3)>bandwidth,0,weight)
 plot(x3,weight,type="l",main="Default loess weighting for x=4, bandwidth=3.1")
\end{Sinput}
\end{Schunk}
