\begin{Schunk}
\begin{Sinput}
 reg.mod.10 <- lm(posAffect ~ agency + intMotiv + extMotiv, data = dat)
 summary(reg.mod.10)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = posAffect ~ agency + intMotiv + extMotiv, data = dat)

Residuals:
     Min       1Q   Median       3Q      Max 
-1.88002 -0.35067  0.01655  0.42346  1.16862 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  1.85865    0.19367   9.597  < 2e-16 ***
agency       0.22583    0.06950   3.249  0.00126 ** 
intMotiv     0.25207    0.05110   4.932 1.22e-06 ***
extMotiv    -0.07459    0.06629  -1.125  0.26126    
---
Signif. codes:  
0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.5877 on 376 degrees of freedom
Multiple R-squared:  0.1409,	Adjusted R-squared:  0.1341 
F-statistic: 20.56 on 3 and 376 DF,  p-value: 2.333e-12
\end{Soutput}
\end{Schunk}
