\begin{Schunk}
\begin{Sinput}
 numV023010 <- as.numeric(nes2002$V023010)
 glmthermo1 <- glm(bushvote~numV023010,data=nes2002,family=binomial) 
 summary(glmthermo1) 
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = bushvote ~ numV023010, family = binomial, data = nes2002)

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-2.4632  -0.6273   0.3141   0.5978   3.4230  

Coefficients:
             Estimate Std. Error z value Pr(>|z|)    
(Intercept) -6.035992   0.416477  -14.49   <2e-16 ***
numV023010   0.090204   0.005713   15.79   <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: 1284.91  on 930  degrees of freedom
Residual deviance:  745.54  on 929  degrees of freedom
  (580 observations deleted due to missingness)
AIC: 749.54

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