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