\begin{Schunk}
\begin{Sinput}
 plotCurves(bushideoglm4, plotx=ideoln, modx=partyid, ylim = c(0, 1.3), xlab = "Ideology(numeric)", ylab = "Vote(Bush=1, Gore=0)")
\end{Sinput}
\end{Schunk}
