\begin{Schunk}
\begin{Sinput}
 mediat.mod.1 <- '
  posAffect ~ intMotiv + agency
  negAffect ~ extMotiv
  intMotiv + extMotiv ~ agency
  intMotiv ~~ extMotiv
  '
 mediat.out.1 <- sem(mediat.mod.1, data = dat)
\end{Sinput}
\end{Schunk}
