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

Residuals:
     Min       1Q   Median       3Q      Max 
-1.88992 -0.35422  0.01966  0.42660  1.17393 

Coefficients:
                Estimate Std. Error t value Pr(>|t|)    
(Intercept)      2.75054    0.51547   5.336 1.65e-07 ***
intMotiv         0.25260    0.05094   4.959 1.08e-06 ***
agency          -0.11041    0.19305  -0.572   0.5677    
extMotiv        -0.65218    0.31650  -2.061   0.0400 *  
agency:extMotiv  0.21506    0.11525   1.866   0.0628 .  
---
Signif. codes:  
0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.5858 on 375 degrees of freedom
Multiple R-squared:  0.1488,	Adjusted R-squared:  0.1398 
F-statistic: 16.39 on 4 and 375 DF,  p-value: 2.175e-12
\end{Soutput}
\end{Schunk}
