\begin{Schunk}
\begin{Sinput}
 plot(x,y, xlab="Standardized x", ylab="Standardized y")
 abline(v=c(-2,-1,0,1,2)*sd(x),lty=4)
 abline(h=c(-2,-1,0,1,2)*sd(y), lty=2)
 abline(modbeta)
\end{Sinput}
\end{Schunk}
