\begin{Schunk}
\begin{Sinput}
 psp17 <- smooth.Pspline(x, y, spar=10, method=1)
 psp17
\end{Sinput}
\begin{Soutput}
Call:
smooth.Pspline(x = x, y = y, spar = 10, method = 1)

Smoothing Parameter (Spar): 10 
Equivalent Degrees of Freedom (Df): 4.555432 
GCV Criterion: 3.67737 
CV  Criterion: 3.791645 
\end{Soutput}
\end{Schunk}
