\begin{Schunk}
\begin{Sinput}
 bushols5 <- lm(bushvote ~ V023010 + ideoln + partyid + educn + useconn, data=nes2002)
\end{Sinput}
\end{Schunk}
