\begin{Schunk}
\begin{Sinput}
 summary(mod1)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = th.bush.kerry ~ V045117 + V043116 + V043210 + V043213 + 
    V045145X + V041109A, data = mydta1)

Residuals:
     Min       1Q   Median       3Q      Max 
-120.570  -18.767   -0.394   19.031  123.140 

Coefficients:
                                     Estimate Std. Error t value Pr(>|t|)    
(Intercept)                          -54.6475     8.0604  -6.780 2.37e-11 ***
V045117L                             -10.7877     7.9306  -1.360  0.17414    
V045117SL                              2.3754     7.9326   0.299  0.76468    
V045117M                               5.6121     7.8190   0.718  0.47312    
V045117SC                             10.1405     8.2569   1.228  0.21977    
V045117C                              17.4988     8.3414   2.098  0.03624 *  
V045117EC                             26.3985     9.7830   2.698  0.00712 ** 
V043116WD                             24.6052     4.0323   6.102 1.65e-09 ***
V043116ID                             22.3647     3.7648   5.940 4.28e-09 ***
V043116I                              40.6049     5.1647   7.862 1.26e-14 ***
V043116IR                             65.2119     4.5902  14.207  < 2e-16 ***
V043116WR                             67.2391     4.5154  14.891  < 2e-16 ***
V043116SR                             82.3482     4.7217  17.440  < 2e-16 ***
V043210No                              7.9106     2.6149   3.025  0.00257 ** 
V043210Med                             6.7806     5.8401   1.161  0.24598    
V043213Same                           17.7009     2.8209   6.275 5.79e-10 ***
V043213Better                         25.0827     3.2776   7.653 5.81e-14 ***
V045145X2. Very good                  -7.6227     2.5281  -3.015  0.00265 ** 
V045145X3. Somewhat good             -14.5053     3.3873  -4.282 2.08e-05 ***
V045145X4. Not very good             -14.6720     6.1407  -2.389  0.01712 *  
V045145X7. Don't feel anything {VOL} -26.2376     8.6676  -3.027  0.00255 ** 
V041109AF                              0.2839     2.1898   0.130  0.89687    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 29.95 on 781 degrees of freedom
  (409 observations deleted due to missingness)
Multiple R-squared:  0.7122,	Adjusted R-squared:  0.7045 
F-statistic: 92.04 on 21 and 781 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
