\begin{Schunk}
\begin{Sinput}
 dat <- data.frame(x = runif(20, min=0, max=10))
 dat$y <- 8 - dat$x + rnorm(20, 2)
 plot(y~x, data=dat, cex=1.5, main="", xlab="x", ylab="y", ylim=c(0,10))
\end{Sinput}
\end{Schunk}
