\begin{Schunk}
\begin{Sinput}
 plot(x,y, main="")
 abline(h=my, lty=4, col="black")
 abline(v=mx, lty=4, col="black")
 mtext(bquote(bar(x) ==.(mx)), side=1, line=2, at=mx)
 mtext(bquote(bar(y) ==.(my)), side=2, line=2, at=my)
 text(1.2*rx[1],ry[2],pos=1, paste("Cov[x,y]=",round(cov(x,y),2),"\n r=",round(cor(x,y),2)))
\end{Sinput}
\end{Schunk}
