\begin{Schunk}
\begin{Sinput}
 bushlogit6 <- glm(bushvote ~ V023010 + ideoln + partyid + useconn  + educf, data=nes2002, family=binomial(link=logit), model=TRUE)
 summary(bushlogit6)
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = bushvote ~ V023010 + ideoln + partyid + useconn + 
    educf, family = binomial(link = logit), data = nes2002, model = TRUE)

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.7735  -0.2855   0.1374   0.3442   3.3110  

Coefficients:
                 Estimate Std. Error z value Pr(>|z|)    
(Intercept)     -7.059758   1.399588  -5.044 4.55e-07 ***
V023010          0.066918   0.007931   8.437  < 2e-16 ***
ideoln           0.386006   0.111888   3.450 0.000561 ***
partyidD        -2.629314   0.333802  -7.877 3.36e-15 ***
partyidR         1.307908   0.338310   3.866 0.000111 ***
useconn         -0.088049   0.127602  -0.690 0.490176    
educfSome HS     1.432101   1.344566   1.065 0.286829    
educfHS          2.001368   1.106675   1.808 0.070536 .  
educfSome coll.  2.451995   1.118111   2.193 0.028309 *  
educfAA          1.420641   1.142753   1.243 0.213803    
educfBA          1.287433   1.099674   1.171 0.241703    
educfGrad        1.887883   1.118700   1.688 0.091494 .  
---
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:  392.39  on 763  degrees of freedom
  (736 observations deleted due to missingness)
AIC: 416.39

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