# NOT RUN {
data(latrendData)
baseMethod <- lcMethodKML(response = "Y", id = "Id", time = "Time")
methods <- lcMethods(baseMethod, nClusters = 1:3)
models <- latrendBatch(methods, latrendData)
plotMetric(models, c("BIC", "WRSS"))
# }
Run the code above in your browser using DataLab