\begin{Schunk}
\begin{Sinput}
 drop1(bush3, test="Chisq")
\end{Sinput}
\begin{Soutput}
Single term deletions

Model:
pres04 ~ partyid + sex + owngun + race + wrkslf + realinc + polviews
         Df Deviance AIC LRT Pr(>Chi)    
<none>           589 627                 
partyid   6      951 977 362  < 2e-16 ***
sex       1      589 625   0    0.991    
owngun    1      592 628   4    0.050 .  
race      2      618 652  30  3.6e-07 ***
wrkslf    1      592 628   4    0.054 .  
realinc   1      589 625   0    0.761    
polviews  6      628 654  40  5.7e-07 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 
\end{Soutput}
\end{Schunk}
