# \donttest{
# Fit LPA model
set.seed(123)
data.obj <- sim.LPA(N = 100, I = 3, L = 2, constraint = "E0")
fit <- LPA(data.obj$response, L = 2, constraint = "VV", method = "EM")
# Compute fit indices
fit_indices <- get.fit.index(fit)
fit_indices
extract(fit_indices, "SABIC")
# }
Run the code above in your browser using DataLab