\begin{Schunk}
\begin{Sinput}
 plot(jitter(sei) ~ jitter(educ), data = dat, cex = 0.5, lwd = 0.2, main = "", xlab =  "Education (years)", ylab = "Socio-economic Status", ylim = c(0, 100))
\end{Sinput}
\end{Schunk}
