# \donttest{
data("PISAindex")
n <- nrow(PISAindex) # Observations in the dataset
selected <- sample(1:n, n * 0.7) # Training indexes
training <- PISAindex[selected, ] # Training set
test <- PISAindex[- selected, ] # Test set
bestRFEAT(training = training,
test = test,
x = 6:9,
y = 3,
numStop = c(3, 5),
m = c(20, 30),
s_mtry = c("1", "BRM"))
# }
Run the code above in your browser using DataLab