method <- lcMethodLMKM(Y ~ 1, nClusters = 2)
method2 <- update(method, formula = ~ . + Time)
method3 <- update(method2, nClusters = 3)
k <- 2
method4 <- update(method, nClusters = k) # nClusters: k
method5 <- update(method, nClusters = k, .eval = TRUE) # nClusters: 2
Run the code above in your browser using DataLab