\begin{Schunk}
\begin{Sinput}
 psp26 <- smooth.Pspline(x, y, df=10, method=2)
 psp26
\end{Sinput}
\begin{Soutput}
Call:
smooth.Pspline(x = x, y = y, df = 10, method = 2)

Smoothing Parameter (Spar): 0.2260648 
Equivalent Degrees of Freedom (Df): 9.990066 
GCV Criterion: 0.6836645 
CV  Criterion: 0.6840962 
\end{Soutput}
\end{Schunk}
