data(latrendData)
method <- lcMethodLMKM(Y ~ Time, id = "Id", time = "Time")
if (require("caret")) {
trainFolds <- createTrainDataFolds(latrendData, folds = 5, id = "Id", seed = 1)
foldModels <- latrendBatch(method, data = trainFolds)
testDataFolds <- createTestDataFolds(latrendData, trainFolds)
}
Run the code above in your browser using DataLab