\begin{Schunk}
\begin{Sinput}
 Nboot <- 500
 mediat.mod.1 <- '
  posAffect ~ b1*intMotiv + agency
  negAffect ~ b2*extMotiv
  intMotiv ~ a1*agency
  extMotiv ~ a2*agency
  intMotiv ~~ extMotiv
  ## define mediation parameters (indirect effects)
  ind1 := a1 * b1
  ind2 := a2 * b2
  '
 mediat.out.1 <- sem(mediat.mod.1, data = dat,
                      se = "boot", bootstrap = Nboot)
\end{Sinput}
\end{Schunk}
