\begin{Schunk}
\begin{Sinput}
 mydta1$V045117n <- as.numeric(mydta1$V045117)
 mydta1$V043116n <- as.numeric(mydta1$V043116)
 mydta1$V043210n <- as.numeric(mydta1$V043210)
 mydta1$V043213n <- as.numeric(mydta1$V043213)
 mydta1$V045145Xn <- as.numeric(mydta1$V045145X)
 m3n <- lm (th.bush.kerry ~ V045117n + V043116n + V043210n + V043213n + V045145Xn + V041109A, data=mydta1) 
\end{Sinput}
\end{Schunk}
