\begin{Schunk}
\begin{Sinput}
 m1 <- lm(th.bush.kerry ~ V043250, data = mydta1)
 newdf <- data.frame(V043250 = c(40, 50))
 predict(m1, newdata = newdf)
\end{Sinput}
\begin{Soutput}
        1         2 
0.5291547 2.3717757 
\end{Soutput}
\end{Schunk}
