\begin{Schunk}
\begin{Sinput}
 m1 <- lm(y ~ x, data = dtest)
 m1.summary <- summary(m1) ## Save summary in object for later
 m1.summary
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = y ~ x, data = dtest)

Residuals:
     Min       1Q   Median       3Q      Max 
-17.4355  -2.9898   0.3711   3.6924  12.0098 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept) 29.78017    0.50952   58.45   <2e-16 ***
x            1.99847    0.09424   21.20   <2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 5.094 on 98 degrees of freedom
Multiple R-squared:  0.8211,	Adjusted R-squared:  0.8192 
F-statistic: 449.7 on 1 and 98 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
