\begin{Schunk}
\begin{Sinput}
 bushideolrm5 <- glm(bushvote ~ V023010+V023022+repub+democ+V023027+ V023131, data=nes2002, family=binomial(link=logit), model=T)
 summary(bushideolrm5)
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = bushvote ~ V023010 + V023022 + repub + democ + 
    V023027 + V023131, family = binomial(link = logit), data = nes2002, 
    model = T)

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.7853  -0.2821   0.1527   0.3575   3.3384  

Coefficients:
             Estimate Std. Error z value Pr(>|z|)    
(Intercept) -4.813647   0.996164  -4.832 1.35e-06 ***
V023010      0.067983   0.007713   8.814  < 2e-16 ***
V023022      0.354252   0.105927   3.344 0.000825 ***
repub        1.167235   0.328048   3.558 0.000374 ***
democ       -2.692004   0.317822  -8.470  < 2e-16 ***
V023027     -0.042292   0.121325  -0.349 0.727403    
V023131     -0.105637   0.083003  -1.273 0.203130    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1098.89  on 799  degrees of freedom
Residual deviance:  422.07  on 793  degrees of freedom
  (711 observations deleted due to missingness)
AIC: 436.07

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