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

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.7926  -0.2907   0.1455   0.3545   3.3124  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -5.01178    1.01087  -4.958 7.13e-07 ***
V023010      0.06636    0.00784   8.464  < 2e-16 ***
ideoln       0.37047    0.10944   3.385 0.000712 ***
partyidD    -2.53371    0.32075  -7.899 2.80e-15 ***
partyidR     1.29471    0.33167   3.904 9.48e-05 ***
useconn     -0.05464    0.12296  -0.444 0.656800    
educn       -0.07259    0.08444  -0.860 0.389932    
---
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:  404.64  on 768  degrees of freedom
  (736 observations deleted due to missingness)
AIC: 418.64

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