\begin{Schunk}
\begin{Sinput}
 set.seed(234234)
 y <- rnorm(100)
 x <- rnorm(100)
 debug(lm)
 m1 <- lm( y ~ x )
\end{Sinput}
\end{Schunk}
