\begin{Schunk}
\begin{Sinput}
 plot(seq(1,7),predvalsD1,type="n",ylim=c(0,1),xlim=c(0,8),xlab="V023022: 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)
 lines(seq(1,7),predvalsD1)
 lines(seq(1,7),predvalsI1)
\end{Sinput}
\end{Schunk}
