# NOT RUN {
data(latrendData)
if (require("caret")) {
trainDataList <- createTrainDataFolds(latrendData, id = "Id", folds = 10)
testData1 <- createTestDataFold(latrendData, trainDataList[[1]], id = "Id")
}
# }
Run the code above in your browser using DataLab