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

Smoothing Parameter (Spar): 6.236906 
Equivalent Degrees of Freedom (Df): 4.995585 
GCV Criterion: 2.648365 
CV  Criterion: 2.745691 
\end{Soutput}
\end{Schunk}
