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

Smoothing Parameter (Spar): 0 
Equivalent Degrees of Freedom (Df): 100 
GCV Criterion: NaN 
CV  Criterion: NaN 
\end{Soutput}
\end{Schunk}
