\begin{Schunk}
\begin{Sinput}
 psp35 <- smooth.Pspline(x, y, method=4)
 psp35
\end{Sinput}
\begin{Soutput}
Call:
smooth.Pspline(x = x, y = y, method = 4)

Smoothing Parameter (Spar): 0.108699 
Equivalent Degrees of Freedom (Df): 11.73974 
GCV Criterion: 0.6774351 
CV  Criterion: 0.673015 
\end{Soutput}
\end{Schunk}
