\begin{Schunk}
\begin{Sinput}
 mod2 <- lm (th.bush.kerry ~ V045117n + V043116 + V043210n + V043213n + V045145Xn + V041109A, data=mydta1) 
 mod2n <- lm (th.bush.kerry ~ V045117n + V043116n + V043210n + V043213n + V045145Xn + V041109A, data=mydta1) 
\end{Sinput}
\end{Schunk}
