\begin{Schunk}
\begin{Sinput}
 mod1.predict <- predict(mod1)
 head(mod1.predict, 10)
\end{Sinput}
\begin{Soutput}
       1        2        3        4        5        6        7        8        9       10 
40.69719 40.76328 39.93715 39.70584 40.59805 45.02607 40.82937 41.95289 39.47453 40.49892 
\end{Soutput}
\end{Schunk}
