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

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.7987  -0.2923   0.1443   0.3538   3.3119  

Coefficients:
             Estimate Std. Error z value Pr(>|z|)    
(Intercept) -5.179402   0.839957  -6.166 6.99e-10 ***
V023010      0.066318   0.007851   8.447  < 2e-16 ***
ideoln       0.370226   0.109493   3.381 0.000721 ***
partyidD    -2.532259   0.321067  -7.887 3.10e-15 ***
partyidR     1.294283   0.331767   3.901 9.57e-05 ***
usecono.L   -0.124297   0.457457  -0.272 0.785842    
usecono.Q   -0.035813   0.353533  -0.101 0.919312    
educn       -0.072949   0.084501  -0.863 0.387980    
---
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.63  on 767  degrees of freedom
  (736 observations deleted due to missingness)
AIC: 420.63

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