\begin{Schunk}
\begin{Sinput}
 summary(mod2)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = wage ~ occupationf, data = dat)

Residuals:
    Min      1Q  Median      3Q     Max 
-11.704  -3.041  -1.037   2.296  31.796 

Coefficients:
                        Estimate Std. Error t value Pr(>|t|)    
(Intercept)              12.7040     0.6304  20.154  < 2e-16 ***
occupationfSales         -5.1114     0.9861  -5.183 3.11e-07 ***
occupationfClerical      -5.2814     0.7891  -6.693 5.59e-11 ***
occupationfService       -6.1665     0.8128  -7.587 1.49e-13 ***
occupationfProfessional  -0.7566     0.7781  -0.972    0.331    
occupationfOther         -4.2775     0.7331  -5.835 9.40e-09 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 4.675 on 528 degrees of freedom
Multiple R-squared:  0.1803,	Adjusted R-squared:  0.1725 
F-statistic: 23.22 on 5 and 528 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
