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

Residuals:
    Min      1Q  Median      3Q     Max 
-1.0167 -0.2943  0.1639  0.3445  1.0670 

Coefficients:
             Estimate Std. Error t value Pr(>|t|)    
(Intercept) -0.247610   0.045310  -5.465 6.18e-08 ***
V023022      0.180620   0.009624  18.768  < 2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.4149 on 807 degrees of freedom
  (702 observations deleted due to missingness)
Multiple R-squared:  0.3038,	Adjusted R-squared:  0.303 
F-statistic: 352.2 on 1 and 807 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
