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

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.8579  -0.3064   0.1186   0.3717   3.5602  

Coefficients:
             Estimate Std. Error z value Pr(>|z|)    
(Intercept) -2.459054   0.523643  -4.696 2.65e-06 ***
V023010      0.036153   0.003957   9.138  < 2e-16 ***
V023022      0.198724   0.056489   3.518 0.000435 ***
repub        0.626346   0.172427   3.633 0.000281 ***
democ       -1.503168   0.168354  -8.929  < 2e-16 ***
V023027     -0.016886   0.064345  -0.262 0.792995    
V023131     -0.081039   0.044730  -1.812 0.070023 .  
---
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:  425.93  on 793  degrees of freedom
  (711 observations deleted due to missingness)
AIC: 439.93

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