\begin{Schunk}
\begin{Sinput}
 ehuge <- rnorm(NROW(dtest), 0, 50)
 dtest$yhuge <- b0 + b1 * dtest$x + ehuge
 m3 <- lm(yhuge ~ x, dtest)
 summary(m3)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = yhuge ~ x, data = dtest)

Residuals:
    Min      1Q  Median      3Q     Max 
-97.091 -36.281  -4.686  34.494 142.950 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  28.9358     5.4270   5.332 6.24e-07 ***
x             0.6816     1.0038   0.679    0.499    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 54.26 on 98 degrees of freedom
Multiple R-squared:  0.004682,	Adjusted R-squared:  -0.005474 
F-statistic: 0.461 on 1 and 98 DF,  p-value: 0.4988
\end{Soutput}
\end{Schunk}
