\begin{Schunk}
\begin{Sinput}
 plot(nes2002$V023022,nes2002$bushvote,ylim=c(0,1),xlab="ideology",ylab="Vote (Bush=1, Gore=0)")
\end{Sinput}
\end{Schunk}
