\begin{Schunk}
\begin{Sinput}
 library(car)
 plot(income ~ education, data=Prestige, ylab="Income", xlab="Education" )
\end{Sinput}
\end{Schunk}
