# NOT RUN {
# inspect properties of the iris data set
plot(iris, col=iris$Species)
summary(iris)
irisEnsemble<- treeEnsemble(Species~.,iris,noTrees=10)
# use the generator to create new data with the generator
irisNewEns <- newdata(irisEnsemble, size=150)
#inspect properties of the new data
plot(irisNewEns, col = irisNewEns$Species) #plot generated data
summary(irisNewEns)
clObj <- cleanData(irisEnsemble, irisNewEns, similarDropP=0.05, dissimilarDropP=0.95,
similarDropPclass=0.05, dissimilarDropPclass=0.95,
nearestInstK=1, reassignResponse=FALSE, cleaningObject=NULL)
head(clObj$cleanData)
# }
Run the code above in your browser using DataLab