# Next example is not run in order to save time
## Not run:
# data(iris)
# out <- edgeBoostFilter(Species~., data = iris, m = 10, percent = 0.05, threshold = 0)
# print(out)
# identical(out$cleanData, iris[setdiff(1:nrow(iris),out$remIdx),])
# ## End(Not run)
Run the code above in your browser using DataLab