\begin{Schunk}
\begin{Sinput}
 plot(seq(1,7), predvalsD1, type="n", ylim=c(0,1), xlim=c(0,8), xlab="ideoln: ideology", ylab="Vote (Bush=1, Gore=0)") 
 text(seq(1,7), predvalsR1, labels=rep("r",7))
 text(seq(1,7), predvalsD1, labels=rep("d",7))
 text(seq(1,7), predvalsI1, labels=rep("i",7))
 lines(seq(1,7), predvalsR1, type="c")
 lines(seq(1,7), predvalsD1, type="c")
 lines(seq(1,7), predvalsI1, type="c")
\end{Sinput}
\end{Schunk}
