\begin{Schunk}
\begin{Sinput}
 x <- c(0,8); b0=3; b1=1.3
 fx <- function(x){b0 + b1*x}
 y <- fx(x)
 plot(y ~ x, type="l",xlab=expression(paste(x[i])), ylab=expression(paste(y[i])), ylim=c(0,10), xlim=c(-1,8), axes=F)
 axis(1, pos=0)
 axis(2, pos=0)
 lines(c(0,2),c(b0, b0),lty=2)
 text(2.2, b0, "the intercept", pos=4)
 segments(c(4,5),fx(c(4,4)),c(5,5),fx(c(4,5)))
 text(5, fx(3), paste("slope: \n over one \n up", b1), pos=4)
\end{Sinput}
\end{Schunk}
