\begin{Schunk}
\begin{Sinput}
 bushlogit5b <- glm(bushvote ~ V023010 + ideoln + educn, 
  data=model.frame(bushlogit5), family=binomial(link=logit), model=TRUE)
\end{Sinput}
\end{Schunk}
