\begin{Schunk}
\begin{Sinput}
 semcfa.tab <- semTable(list("SEM" = mediat.out.2, "CFA" = cfa3), columns = c("estsestars"), varLabels = vl, longtable = TRUE, print.results = FALSE)
\end{Sinput}
\end{Schunk}
