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

Model 1: bushvote ~ V023010 + ideolFactor + repub + democ + V023027 + 
    educFactor
Model 2: bushvote ~ V023010 + V023022 + repub + democ + V023027 + educFactor
  Resid. Df Resid. Dev Df Deviance Pr(>Chi)
1       786     406.15                     
2       791     409.92 -5  -3.7703   0.5829
\end{Soutput}
\end{Schunk}
