## not run
## get same example as rfImpute() function from randomForest package
# data(iris)
# iris.na <- iris
# set.seed(111)
## artificially drop some data values.
# for (i in 1:4) iris.na[sample(150, sample(20)), i] <- NA
## imputation
# iris.imputed <- fillNA2.randomUniformForest(iris.na, threads = 1)
## model with imputation
# iris.NAfixed.ruf <- randomUniformForest(Species ~ ., iris.imputed,
# BreimanBounds = FALSE, threads = 1)
# iris.NAfixed.ruf
## Compare with true data (OOB evaluation)
# iris.ruf <- randomUniformForest(Species ~ ., iris, BreimanBounds = FALSE, threads = 1)
# iris.rufRun the code above in your browser using DataLab