\begin{Schunk}
\begin{Sinput}
 lm1 <- lm(posAffect ~ agency + intMotiv + extMotiv*agency, data = dat)
 coef(lm1)
\end{Sinput}
\begin{Soutput}
    (Intercept)          agency        intMotiv 
      2.7505404      -0.1104093       0.2526032 
       extMotiv agency:extMotiv 
     -0.6521769       0.2150615 
\end{Soutput}
\end{Schunk}
