# NOT RUN {
library(mlr3)
library(data.table)
terminator = trm("evals", n_evals = 10)
instance = FSelectInstanceSingleCrit$new(
task = tsk("iris"),
learner = lrn("classif.rpart"),
resampling = rsmp("holdout"),
measure = msr("classif.ce"),
terminator = terminator
)
design = data.table(Petal.Length = c(TRUE, FALSE),
Petal.Width = c(TRUE, FALSE),
Sepal.Length = c(FALSE, TRUE),
Sepal.Width = c(FALSE, TRUE))
fselector = fs("design_points", design = design)
# Modifies the instance by reference
fselector$optimize(instance)
# Returns best scoring evaluation
instance$result
# Allows access of data.table of full path of all evaluations
instance$archive$data
# }
Run the code above in your browser using DataLab