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