\begin{Schunk}
\begin{Sinput}
 library(pspline)
 #dat <- data.frame(x,y)
 #dat <- dat[order(x), ]
 #x <- dat$x
 #y <- dat$y
\end{Sinput}
\end{Schunk}
