\begin{Schunk}
\begin{Soutput}
Call:
lm(formula = wbeing ~ satis, data = dat)

Residuals:
    Min      1Q  Median      3Q     Max 
-3.2746 -0.9095  0.0905  0.7254  3.0905 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  4.08366    0.27485  14.858  < 2e-16 ***
satis        0.36516    0.04503   8.109 4.32e-15 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 1.158 on 478 degrees of freedom
Multiple R-squared:  0.1209,	Adjusted R-squared:  0.1191 
F-statistic: 65.76 on 1 and 478 DF,  p-value: 4.323e-15
\end{Soutput}
\end{Schunk}
