\begin{Schunk}
\begin{Sinput}
 plot(y~x, data=dat, cex=1.5, main="", xlab="x", ylab="y", type = "l", ylim=c(0,10))
 points(y ~ x, data=dat)
\end{Sinput}
\end{Schunk}
