\begin{Schunk}
\begin{Sinput}
 b0 <- 2
 b1 <- 3
 plot(x=seq(0,10, length=10), y=seq(0,40, length=10), type="n", xlab="x", ylab="y")
 abline(a=b0, b=b1, lwd=2)
 abline(a=b0+8, b=b1, lty=3, col=gray(0.8), lwd=2)
 abline(a=b0-8, b=b1, lty=3, col=gray(0.8), lwd=2)
 text(1, 35, labels="Don't do this! \n it is wrong!")
 arrows(4, b0+b1*4,	4, (b0+8)+b1*4 , angle=90, length=0.05, code=3)
 text(4, (b0+8)+b1*4 , labels=expression(hat(y) + 2 %*% rmse), pos=2)
 arrows(5, b0+b1*5,	5, (b0-8)+b1*5 , angle=90, length=0.05, code=3)
 text(5.2, (b0-8)+b1*5 , labels=expression(hat(y) - 2 %*% rmse), pos=4)
\end{Sinput}
\end{Schunk}
