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

Model 1: bushvote ~ V023010 + ideolf + partyid + educn + useconn
Model 2: bushvote ~ V023010 + ideoln + partyid + educf + useconn
  Resid. Df Resid. Dev Df Deviance Pr(>Chi)
1       763     399.85                     
2       763     392.39  0   7.4587         
\end{Soutput}
\end{Schunk}
