\begin{Schunk}
\begin{Sinput}
 bushideolrm7o <- glm(bushvote ~ V023010 + ideolo + partyid + educn + useconn, data=nes2002, family=binomial(link=logit))
 summary(bushideolrm7o)
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = bushvote ~ V023010 + ideolo + partyid + educn + 
    useconn, family = binomial(link = logit), data = nes2002)

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.9006  -0.2739   0.1457   0.3387   3.1918  

Coefficients:
             Estimate Std. Error z value Pr(>|z|)    
(Intercept) -3.378932   0.981070  -3.444 0.000573 ***
V023010      0.065749   0.007878   8.346  < 2e-16 ***
ideolo.L     0.840973   0.805728   1.044 0.296604    
ideolo.Q     0.685914   0.751173   0.913 0.361177    
ideolo.C    -1.034145   0.625084  -1.654 0.098044 .  
ideolo^4     0.081279   0.471657   0.172 0.863181    
ideolo^5    -0.564863   0.393908  -1.434 0.151573    
ideolo^6     0.148891   0.301841   0.493 0.621817    
partyidD    -2.553675   0.327330  -7.802 6.12e-15 ***
partyidR     1.241612   0.337076   3.683 0.000230 ***
educn       -0.062552   0.086518  -0.723 0.469687    
useconn     -0.041500   0.125335  -0.331 0.740558    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1066.72  on 774  degrees of freedom
Residual deviance:  399.85  on 763  degrees of freedom
  (736 observations deleted due to missingness)
AIC: 423.85

Number of Fisher Scoring iterations: 6
\end{Soutput}
\end{Schunk}
