\begin{Schunk}
\begin{Sinput}
 with(nes2002, plot(jitter(ideoln), jitter(bushvote), ylim=c(-0.2, 1.2), 
     xlab="Ideology (numeric)", ylab="Vote (Bush=1,Gore=0)"))
 nd <- data.frame(ideoln = 1:7)
 nd$fit <- predict(ols1, newdata = nd)
 lines(nd$ideoln, nd$fit)
\end{Sinput}
\end{Schunk}
