\begin{Schunk}
\begin{Sinput}
 nes2002$ideolFactor <- as.factor(nes2002$V023022)
 bushideolrm7 <- glm(bushvote ~ V023010 + ideolFactor + repub + democ + V023027 + educFactor, data=nes2002,family=binomial(link=logit))
\end{Sinput}
\end{Schunk}
