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

Model 1: th.bush.kerry ~ V045117 + V043116 + V043210 + V043213 + V045145X + 
    V041109A
Model 2: th.bush.kerry ~ V045117n + V043116n + V043210n + V043213n + V045145Xn + 
    V041109A
  Res.Df    RSS  Df Sum of Sq      F    Pr(>F)    
1    781 700542                                   
2    796 738959 -15    -38417 2.8553 0.0002215 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\end{Schunk}
