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

Response: wage
             Df  Sum Sq Mean Sq F value    Pr(>F)    
occupationf   5  2537.7  507.54  23.224 < 2.2e-16 ***
Residuals   528 11539.0   21.85                      
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\end{Schunk}
