\begin{Schunk}
\begin{Sinput}
 summary(m2)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = PosAFF1 ~ genderf + Agency1, data = affect)

Residuals:
     Min       1Q   Median       3Q      Max 
-2.21823 -0.40443  0.00502  0.51699  1.27670 

Coefficients:
              Estimate Std. Error t value Pr(>|t|)    
(Intercept)    2.45163    0.16694  14.686  < 2e-16 ***
genderffemale  0.04212    0.06720   0.627    0.531    
Agency1        0.27167    0.06516   4.169  3.8e-05 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.6544 on 377 degrees of freedom
Multiple R-squared:  0.04464,	Adjusted R-squared:  0.03958 
F-statistic: 8.809 on 2 and 377 DF,  p-value: 0.0001824
\end{Soutput}
\end{Schunk}
