\begin{Schunk}
\begin{Sinput}
 library(lavaan)
 sem.fmla <- 'posAffect ~ agency + intMotiv + extMotiv + agency.X.extMotiv'
 sem1 <- sem(sem.fmla, data = dat, meanstructure = TRUE)
\end{Sinput}
\end{Schunk}
