\begin{Schunk}
\begin{Sinput}
 x <- seq(from = 0, to = 50, length.out = 200)
 y <- 30 + 1.4 * x + 6 * rnorm(200)
 plot(x, y, main = "Linear Equation", xlim = c(0, 50), ylim = c(-10, 100))
 abline(lm(y ~ x))
\end{Sinput}
\end{Schunk}
