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

Model 1: bushvote ~ V023010 + ideoln + partyid + useconn + educn
Model 2: bushvote ~ V023010 + ideolo + partyid + educn + useconn
  Resid. Df Resid. Dev Df Deviance Pr(>Chi)
1       768     404.64                     
2       763     399.85  5   4.7916   0.4418
\end{Soutput}
\end{Schunk}
