\begin{Schunk}
\begin{Sinput}
 #setting seed so this thing looks the same every time!
 set.seed(2314)
 x <- 10 * runif(100)
 y <- 5*sin(x)+rnorm(100)
 dat <- data.frame(x,y)
 dat <- dat[order(dat$x), ]
 x <- dat$x
 y <- dat$y
 plot (x, y, main="Curvish data from Locfit example", pch=16)
 abline(lm(y~x))
\end{Sinput}
\end{Schunk}
