data(latrendData)
if (rlang::is_installed("lcmm")) {
method <- lcMethodLcmmGMM(
fixed = Y ~ Time,
mixture = ~ Time,
random = ~ 1,
id = "Id",
time = "Time"
)
model <- latrend(method, latrendData)
confusionMatrix(model)
}
Run the code above in your browser using DataLab