\begin{Schunk}
\begin{Sinput}
 bushideolrm7f <- glm(bushvote ~ V023010 + ideolf + partyid + educn + useconn, data=nes2002, family=binomial(link=logit))
 summary(bushideolrm7f)
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = bushvote ~ V023010 + ideolf + 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) -2.973156   1.408094  -2.111  0.03473 *  
V023010      0.065749   0.007878   8.346  < 2e-16 ***
ideolfL     -1.467586   1.198261  -1.225  0.22066    
ideolfSL    -0.823231   1.164518  -0.707  0.47961    
ideolfM     -0.763800   1.117647  -0.683  0.49435    
ideolfSC    -0.277315   1.145282  -0.242  0.80867    
ideolfC      0.505559   1.154340   0.438  0.66141    
ideolfEC    -0.014066   1.344559  -0.010  0.99165    
partyidD    -2.553675   0.327330  -7.802 6.12e-15 ***
partyidR     1.241612   0.337076   3.683  0.00023 ***
educn       -0.062552   0.086518  -0.723  0.46969    
useconn     -0.041500   0.125335  -0.331  0.74056    
---
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}
