\begin{Schunk}
\begin{Sinput}
 bushideoglm3 <- glm(bushvote ~ ideoln + partyid, family=binomial, data=nes2002) 
 summary(bushideoglm3)
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = bushvote ~ ideoln + partyid, family = binomial, 
    data = nes2002)

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.8430  -0.4116   0.2621   0.3634   2.9820  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -2.52894    0.39468  -6.408 1.48e-10 ***
ideoln       0.66957    0.08977   7.459 8.73e-14 ***
partyidD    -2.57512    0.28083  -9.170  < 2e-16 ***
partyidR     1.86562    0.29120   6.407 1.49e-10 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1074.69  on 780  degrees of freedom
Residual deviance:  519.68  on 777  degrees of freedom
  (730 observations deleted due to missingness)
AIC: 527.68

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