# Next example is not run in order to save time
## Not run:
# data(iris)
# out <- CNN(iris)
# print(out)
# length(out$remIdx)
# identical(out$cleanData, iris[setdiff(1:nrow(iris),out$remIdx),])
# ## End(Not run)
Run the code above in your browser using DataLab