\begin{Schunk}
\begin{Sinput}
 summary(m1)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = mathach ~ ses + size + sector + gender + ethnicity, 
    data = hsb)

Residuals:
     Min       1Q   Median       3Q      Max 
-20.1204  -4.4920   0.2334   4.7397  17.3453 

Coefficients:
                     Estimate Std. Error t value Pr(>|t|)    
(Intercept)        12.3472389  0.2190316  56.372  < 2e-16 ***
ses                 2.3403235  0.0993873  23.548  < 2e-16 ***
size                0.0006893  0.0001338   5.153 2.63e-07 ***
sectorCatholic      2.6193556  0.1647511  15.899  < 2e-16 ***
genderFemale       -1.3928702  0.1459261  -9.545  < 2e-16 ***
ethnicityNon-white -3.2183223  0.1712270 -18.796  < 2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 6.155 on 7179 degrees of freedom
Multiple R-squared:  0.1999,	Adjusted R-squared:  0.1993 
F-statistic: 358.7 on 5 and 7179 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
