\begin{Schunk}
\begin{Sinput}
 library(kutils)
 lav70a <- semTable(cfa3, fits = c("cfi", "rmsea"), longtable = TRUE,
           file = file.path(tmpout, "lav70"))
 cat(lav70a)
\end{Sinput}
\end{Schunk}
