data(latrendData)
method <- lcMethodLMKM(Y ~ Time, id = "Id", time = "Time")
model1 <- latrend(method, latrendData, nClusters = 1)
model2 <- latrend(method, latrendData, nClusters = 2)
model3 <- latrend(method, latrendData, nClusters = 3)
models <- lcModels(model1, model2, model3)
min(models, "WMAE")
Run the code above in your browser using DataLab