\begin{Schunk}
\begin{Sinput}
 ## 20190602: bug appears in output below, don't know why!
 ## 20190606: bug solved
 labs <- c("depress" = "Depression")
 cfapairwise <- 
  semTable(list("Pairwise CFA ml" = cfa.01.v.01.fit.pairwise, "Pairwise CFA wlsmv" = cfa.01.v.02.fit.pairwise), paramSets = c("loadings", "thresholds", "intercepts", "residualvariances", "fits"), columns = c("estsestars"), file = file.path(tdir, "cfa0101b"), type = "tex", longtable = TRUE, varLabels = labs)
\end{Sinput}
\end{Schunk}
