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

Model 1: pres04 ~ partyid + sex + owngun + race + wrkslf + realinc + polviews
Model 2: pres04 ~ partyid + owngun + race + polviews
  Resid. Df Resid. Dev Df Deviance Pr(>Chi)
1      1044        589                     
2      1047        593 -3     -4.1     0.25
\end{Soutput}
\end{Schunk}
