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