## Not run:
#
# set.seed(1)
# train_data <- twoClassSim(100, noiseVars = 10)
# test_data <- twoClassSim(10, noiseVars = 10)
#
# ## A short example
# ctrl <- safsControl(functions = rfSA,
# method = "cv",
# number = 3)
#
# rf_search <- safs(x = train_data[, -ncol(train_data)],
# y = train_data$Class,
# iters = 3,
# safsControl = ctrl)
#
# rf_search
#
# predict(rf_search, train_data)
# ## End(Not run)
Run the code above in your browser using DataLab