\begin{Schunk}
\begin{Sinput}
 anova(m2)
\end{Sinput}
\begin{Soutput}
Analysis of Variance Table

Response: PosAFF1
           Df  Sum Sq Mean Sq F value    Pr(>F)    
genderf     1   0.101  0.1009  0.2357    0.6276    
Agency1     1   7.443  7.4425 17.3820 3.796e-05 ***
Residuals 377 161.422  0.4282                      
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\begin{Sinput}
 anova(m1, m2)
\end{Sinput}
\begin{Soutput}
Analysis of Variance Table

Model 1: PosAFF1 ~ genderf
Model 2: PosAFF1 ~ genderf + Agency1
  Res.Df    RSS Df Sum of Sq      F    Pr(>F)    
1    378 168.86                                  
2    377 161.42  1    7.4425 17.382 3.796e-05 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\end{Schunk}
