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

Model:
bushvote ~ V023010 + ideolf + partyid + educn + useconn
        Df Deviance    AIC     LRT Pr(>Chi)    
<none>       399.85 423.85                     
V023010  1   499.05 521.05  99.196  < 2e-16 ***
ideolf   6   416.28 428.28  16.428  0.01163 *  
partyid  2   547.34 567.34 147.487  < 2e-16 ***
educn    1   400.38 422.38   0.524  0.46898    
useconn  1   399.96 421.96   0.110  0.74024    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\end{Schunk}
