# Next example is not run in order to save time
## Not run:
# data(iris)
# trainData <- iris[c(1:20,51:70,101:120),]
# out1 <- DROP1(Species~ Petal.Length + Petal.Width, data = trainData)
# summary(out1, explicit = TRUE)
# identical(out1$cleanData, trainData[setdiff(1:nrow(trainData),out1$remIdx),])
# ## End(Not run)
Run the code above in your browser using DataLab