\begin{Schunk}
\begin{Sinput}
 plotCurves(bushideoglm4, plotx=ideoln, modx=partyid,
              xlab="Ideology(numeric)", ylab="Linear predictor: XB",
              type="link", plotPoints=FALSE, ylim = c(-4,4))
\end{Sinput}
\end{Schunk}
