\begin{Schunk}
\begin{Sinput}
 fit <- predict(mod1age)
 head(fit)
\end{Sinput}
\begin{Soutput}
          1           2           3           4           5           6 
 2.37177573  1.81898943 -0.02363155  6.24127979  4.58292091  2.92456202 
\end{Soutput}
\begin{Sinput}
 head(fitted(mod1age))
\end{Sinput}
\begin{Soutput}
          1           2           3           4           5           6 
 2.37177573  1.81898943 -0.02363155  6.24127979  4.58292091  2.92456202 
\end{Soutput}
\end{Schunk}
