# Next example is not run in order to save time
## Not run:
# data(iris)
# out1 <- C45robustFilter(Species~.-Sepal.Length, iris)
# # We fix a seed since next two functions create partitions of data for the ensemble
# set.seed(1)
# out2 <- C45votingFilter(iris, consensus = TRUE)
# out3 <- C45iteratedVotingFilter(Species~., iris, nfolds = 5)
# print(out1)
# print(out2)
# print(out3)
# identical(out1$cleanData,iris[setdiff(1:nrow(iris),out1$remIdx),])
# identical(out2$cleanData,iris[setdiff(1:nrow(iris),out2$remIdx),])
# identical(out3$cleanData,iris[setdiff(1:nrow(iris),out3$remIdx),])
# ## End(Not run)
Run the code above in your browser using DataLab