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

Model 1: th.bush.kerry ~ V045117n + V043116 + V043210n + V043213n + V045145Xn + 
    V041109A
Model 2: th.bush.kerry ~ V045117n + V043116n + V043210n + V043213n + V045145Xn + 
    V041109A
  Res.Df    RSS Df Sum of Sq      F    Pr(>F)    
1    791 713920                                  
2    796 738959 -5    -25039 5.5485 4.945e-05 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\end{Schunk}
