# NOT RUN {
## ------------------------------------------------------------
## example of survival imputation
## ------------------------------------------------------------
## unsupervised splitting
data(pbc, package = "randomForestSRC")
pbc1.d <- impute(data = pbc, nimpute = 5)
#imputation using outcome splitting
f <- as.formula(Surv(days, status) ~ .)
pbc2.d <- impute(f, data = pbc, nsplit = 3)
#random splitting can be reasonably good
pbc4.d <- impute(f, data = pbc, splitrule = "random", nimpute = 5)
## ------------------------------------------------------------
## example of regression imputation
## ------------------------------------------------------------
air1.d <- impute(data = airquality, nimpute = 5)
air2.d <- impute(Ozone ~ ., data = airquality, nimpute = 5)
air3.d <- impute(Ozone ~ ., data = airquality, nimpute = 5,
splitrule = "random", nodesize = 1)
## ------------------------------------------------------------
## multivariate missForest imputation
## ------------------------------------------------------------
data(pbc, package = "randomForestSRC")
## use 10 percent of variables as responses
## i.e. multivariate missForest
pbc.d <- impute(data = pbc, mf.q = .01)
## use 1 variable as the response
## i.e. original missForest algorithm
pbc.d <- impute(data = pbc, mf.q = 1)
## faster call by using random splitting
pbc.d <- impute(data = pbc, mf.q = 1, splitrule = "random")
## faster call by increasing nodesize
pbc.d <- impute(data = pbc, mf.q = 1, nodesize = 20, splitrule = "random")
# }
Run the code above in your browser using DataLab