\begin{Schunk}
\begin{Sinput}
 olsthermo1 <- lm(bushvote~V023010,data=nes2002) 
 summary(olsthermo1)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = bushvote ~ V023010, data = nes2002)

Residuals:
    Min      1Q  Median      3Q     Max 
-0.9629 -0.3299  0.1004  0.2903  1.2779 

Coefficients:
              Estimate Std. Error t value Pr(>|t|)    
(Intercept) -0.3031905  0.0327025  -9.271   <2e-16 ***
V023010      0.0126614  0.0004567  27.726   <2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.3691 on 929 degrees of freedom
  (580 observations deleted due to missingness)
Multiple R-squared:  0.4528,	Adjusted R-squared:  0.4522 
F-statistic: 768.7 on 1 and 929 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
