\begin{Schunk}
\begin{Sinput}
 mod1 <- lm(th.bk ~ V043250, data = anes1)
 summary(mod1)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = th.bk ~ V043250, data = anes1)

Residuals:
     Min       1Q   Median       3Q      Max 
-108.821  -42.753   -2.003   42.905  103.340 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)  
(Intercept) -6.84133    4.59553  -1.489    0.137  
V043250      0.18426    0.09181   2.007    0.045 *
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 53.89 on 1189 degrees of freedom
  (21 observations deleted due to missingness)
Multiple R-squared:  0.003376,	Adjusted R-squared:  0.002538 
F-statistic: 4.028 on 1 and 1189 DF,  p-value: 0.04498
\end{Soutput}
\end{Schunk}
