# Generate some missings
iris_na <- iris
for (j in 1:ncol(iris)) {
iris_na[sample(1:nrow(iris), 5), j] <- NA
}
# Single imputation
iris_imputed <- arf::impute(iris_na, num_trees = 10, m = 1)
# Multiple imputation
iris_imputed <- arf::impute(iris_na, num_trees = 10, m = 10)
if (FALSE) {
# Parallelization with doParallel
doParallel::registerDoParallel(cores = 4)
# ... or with doFuture
doFuture::registerDoFuture()
future::plan("multisession", workers = 4)
}
Run the code above in your browser using DataLab