\begin{Schunk}
\begin{Sinput}
 bushlogit8r <- glm(bushvote ~ V023010 + ideoln + partyid + educn, data=model.frame(bushlogit8), family=binomial(link=logit))
 anova(bushlogit8r, bushlogit8, test = "Chisq")
\end{Sinput}
\begin{Soutput}
Analysis of Deviance Table

Model 1: bushvote ~ V023010 + ideoln + partyid + educn
Model 2: bushvote ~ V023010 + ideoln + partyid + usecono + educn
  Resid. Df Resid. Dev Df Deviance Pr(>Chi)
1       769     404.84                     
2       767     404.63  2  0.20836   0.9011
\end{Soutput}
\end{Schunk}
