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

Model:
bushvote ~ V023010 + ideoln + partyid + usecono + educn
        Df Deviance    AIC     LRT  Pr(>Chi)    
<none>       404.63 420.63                      
V023010  1   505.94 519.94 101.306 < 2.2e-16 ***
ideoln   1   416.24 430.24  11.606 0.0006573 ***
partyid  2   555.01 567.01 150.373 < 2.2e-16 ***
usecono  2   404.84 416.84   0.208 0.9010638    
educn    1   405.38 419.38   0.748 0.3870909    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\end{Schunk}
