# The example is not run because the graph construction is quite time-consuming.
## Not run:
# data(iris)
# trainData <- iris[c(1:20,51:70,101:120),]
# out <- ENG(Species~Petal.Length + Petal.Width, data = trainData, graph = "RNG")
# print(out)
# identical(out$cleanData,trainData[setdiff(1:nrow(trainData),out$remIdx),])
# ## End(Not run)
Run the code above in your browser using DataLab