\begin{Schunk}
\begin{Sinput}
 set.seed(4443434)
 x <- rnorm(1000, m=50,sd=10)
 y <- 4 + 0.24 * x + rnorm(1000,m=0, sd=70)
 myolsmod <- lm(y~x)
\end{Sinput}
\end{Schunk}
