Lower perplexity indicates better model fit.
perplexity_items(lca_result, transmatrix, item = NULL)numeric scalar perplexity
if (FALSE) { # \dontrun{
transmatrix <- multi_transmat(pre_test, pst_test)
res <- lca_cor(transmatrix)
perplexity_items(res, transmatrix)
} # }