# NOT RUN {
data(latrendData)
method <- lcMethodLMKM(Y ~ Time, id = "Id", time = "Time")
if (require("caret")) {
model <- latrendCV(method, latrendData, folds = 5)
model <- latrendCV(method, subset(latrendData, Time < .5), folds = 5, seed = 1)
}
# }
Run the code above in your browser using DataLab