\begin{Schunk}
\begin{Sinput}
 library(kutils)
 cfaTable10 <- compareLavaan(list("Restricted" = group.out.0, "Unrestricted" = group.out.1), fitmeas = c("chisq", "df", "rmsea", "cfi"), nesting = NULL, type = "latex", file = "output/cfaTable10.tex", print.results = FALSE)
 cat(cfaTable10)
\end{Sinput}
\end{Schunk}
