# NOT RUN {
library(mlr3)
task = tsk("iris")
learner = lrn("classif.rpart")
resampling = rsmp("holdout")
measure = msr("classif.ce")
terminator = trm("evals", n_evals = 15)
fselector = fs("exhaustive_search")
afs = AutoFSelect$new(learner, resampling, measure, terminator, fselector)
afs$store_fselect_instance = TRUE
afs$train(task)
afs$model
afs$learner
# Nested resampling
afs = AutoFSelect$new(learner, resampling, measure, terminator, fselector)
afs$store_fselect_instance = TRUE
resampling_outer = rsmp("cv", folds = 2)
rr = resample(task, afs, resampling_outer, store_models = TRUE)
# Aggregate performance of outer results
rr$aggregate()
# Retrieve inner feature selection results
as.data.table(rr)$learner[[1]]$fselect_result
# }
Run the code above in your browser using DataLab