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

Smoothing Parameter (Spar): 0.8 
Equivalent Degrees of Freedom (Df): 7.611132 
GCV Criterion: 0.7944122 
CV  Criterion: 0.8109217 
\end{Soutput}
\end{Schunk}
