\begin{Schunk}
\begin{Sinput}
 library(semTable)
 labs <- c("depress" = "Depression")
 cfa.ld.pw <- 
  semTable(list("listwise" = cfa.01.v.01.fit.listwise, "pairwise" = cfa.01.v.01.fit.pairwise), paramSets = c("loadings", "intercepts", "residualvariances", "fits"), columns = c("estsestars"), file = file.path(tdir, "cfa.ld.pw"), type = "tex", longtable = TRUE, varLabels = labs)
\end{Sinput}
\end{Schunk}
