# NOT RUN {
data(latrendData)
model <- latrend(lcMethodLcmmGMM(fixed = Y ~ Time, mixture = ~ Time,
id = "Id", time = "Time"), latrendData)
bic <- metric(model, "BIC")
ic <- metric(model, c("AIC", "BIC"))
# }
Run the code above in your browser using DataLab