data(latrendData)
if (require("dtwclust")) {
method <- lcMethodDtwclust("Y", id = "Id", time = "Time", nClusters = 3)
# reduced sample size to lower runtime
model <- latrend(method, latrendData[1:500, ])
}
Run the code above in your browser using DataLab