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

Model: binomial, link: logit

Response: pres04

Terms added sequentially (first to last)


        Df Deviance Resid. Df Resid. Dev Pr(>Chi)    
NULL                     1242       1722             
partyid  6      947      1236        775  < 2e-16 ***
sex      1        0      1235        775  0.97862    
owngun   1       11      1234        764  0.00087 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 
\end{Soutput}
\end{Schunk}
