# NOT RUN {
# }
# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab