\begin{Schunk}
\begin{Sinput}
 mod1age <- lm(th.bush.kerry ~ V043250, data = mydta1)
 outreg(mod1age, tight = FALSE, modelLabels = c("Age as Predictor"))
\end{Sinput}
\end{Schunk}
