\begin{Schunk}
\begin{Sinput}
 anova(reg.mod.10, reg.mod.11, reg.mod.12,  test = "F")
\end{Sinput}
\begin{Soutput}
Analysis of Variance Table

Model 1: posAffect ~ agency + intMotiv + extMotiv
Model 2: posAffect ~ intMotiv + agency * extMotiv
Model 3: posAffect ~ agency * intMotiv * extMotiv
  Res.Df    RSS Df Sum of Sq      F  Pr(>F)  
1    376 129.87                              
2    375 128.67  1   1.19479 3.4787 0.06295 .
3    372 127.77  3   0.90459 0.8779 0.45261  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\end{Schunk}
