\begin{Schunk}
\begin{Sinput}
  bush4 <- glm(pres04 ~ partyid +  owngun + race + polviews , data=model.frame(bush3), family=binomial(link=logit))
\end{Sinput}
\end{Schunk}
