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

Residuals:
    Min      1Q  Median      3Q     Max 
-3.2248 -0.7518 -0.0114  0.6933  2.7181 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  0.77194    0.44789   1.723 0.085449 .  
satis        0.26371    0.04132   6.382 4.17e-10 ***
jobperf      0.40240    0.03828  10.513  < 2e-16 ***
tenure       0.02088    0.01761   1.186 0.236151    
age          0.03391    0.01018   3.332 0.000929 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 1.032 on 475 degrees of freedom
Multiple R-squared:  0.3064,	Adjusted R-squared:  0.3006 
F-statistic: 52.46 on 4 and 475 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
