# Next example is not run in order to save time
## Not run:
# data(iris)
# trainData <- iris[c(1:20,51:70,101:120),]
# # We fix a seed since there exists a random partition for the ensemble
# set.seed(1)
# out <- dynamicCF(Species~Petal.Length + Sepal.Length, data = trainData, nfolds = 5, m = 3)
# summary(out, explicit = TRUE)
# identical(out$cleanData, trainData[setdiff(1:nrow(trainData),out$remIdx),])
# ## End(Not run)
Run the code above in your browser using DataLab