\begin{Schunk}
\begin{Sinput}
 load("../../DataSets/GSS/gss-subset2.Rda")
 plot(sei~educ, data=dat, cex=0.5,main="", xlab="Education (years)", ylab="Socio-economic Status",ylim=c(0,100))
\end{Sinput}
\end{Schunk}
