\begin{Schunk}
\begin{Sinput}
 anova(mod3, mod2, test="F")
\end{Sinput}
\begin{Soutput}
Analysis of Variance Table

Model 1: wage ~ occupationf2
Model 2: wage ~ occupationf
  Res.Df   RSS Df Sum of Sq      F Pr(>F)
1    530 11584                           
2    528 11539  2    45.529 1.0417 0.3536
\end{Soutput}
\end{Schunk}
