\begin{Schunk}
\begin{Sinput}
 anova(bushideolrm6, bushideolrm5, test="Chisq")
\end{Sinput}
\begin{Soutput}
Analysis of Deviance Table

Model 1: bushvote ~ V023010 + V023022 + repub + democ + V023027 + educFactor
Model 2: bushvote ~ V023010 + V023022 + repub + democ + V023027 + V023131
  Resid. Df Resid. Dev Df Deviance Pr(>Chi)  
1       788     409.45                       
2       793     422.07 -5  -12.624  0.02717 *
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\end{Schunk}
