# Next example is not run in order to save time
## Not run:
# data(iris)
# # We fix a seed since there exists a random partition for the ensemble
# set.seed(1)
# out <- CVCF(Species~.-Sepal.Width, data = iris)
# print(out)
# identical(out$cleanData, iris[setdiff(1:nrow(iris),out$remIdx),])
# ## End(Not run)
Run the code above in your browser using DataLab