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

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.8473  -0.3099   0.1113   0.3659   3.5075  

Coefficients:
             Estimate Std. Error z value Pr(>|z|)    
(Intercept) -2.534823   0.531153  -4.772 1.82e-06 ***
V023010      0.035123   0.004026   8.725  < 2e-16 ***
ideoln       0.204836   0.058127   3.524 0.000425 ***
partyidD    -1.420566   0.170647  -8.325  < 2e-16 ***
partyidR     0.698687   0.174842   3.996 6.44e-05 ***
educn       -0.067508   0.045380  -1.488 0.136845    
useconn     -0.020976   0.065527  -0.320 0.748882    
---
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:  408.67  on 768  degrees of freedom
  (736 observations deleted due to missingness)
AIC: 422.67

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