\begin{Schunk}
\begin{Sinput}
 bushideoProbit1 <- glm(bushvote~V023022,family=binomial(link=probit),data=nes2002) 
 summary(bushideoProbit1)
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = bushvote ~ V023022, family = binomial(link = probit), 
    data = nes2002)

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.4018  -0.7808   0.5713   0.8723   2.5347  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -2.30389    0.17306  -13.31   <2e-16 ***
V023022      0.55630    0.03768   14.76   <2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1110.80  on 808  degrees of freedom
Residual deviance:  836.02  on 807  degrees of freedom
  (702 observations deleted due to missingness)
AIC: 840.02

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