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