if (FALSE) {
# Fit model first
transmatrix <- multi_transmat(pre_test, pst_test)
res <- lca_cor(transmatrix)
# Calculate goodness of fit
fit_stats <- fit_model(pre_test, pst_test, res$param.lca[nrow(res$param.lca), ],
res$param.lca[-nrow(res$param.lca), ])
}
Run the code above in your browser using DataLab