# NOT RUN {
library(mlr3)
library(data.table)
# Objects required to define the performance evaluator
task = tsk("iris")
measures = msrs(c("classif.ce", "classif.acc"))
learner = lrn("classif.rpart")
resampling = rsmp("cv")
terminator = trm("evals", n_evals = 8)
inst = FSelectInstanceMultiCrit$new(
task = task,
learner = learner,
resampling = resampling,
measures = measures,
terminator = terminator
)
# Try some feature subsets
xdt = data.table(
Petal.Length = c(TRUE, FALSE),
Petal.Width = c(FALSE, TRUE),
Sepal.Length = c(TRUE, FALSE),
Sepal.Width = c(FALSE, TRUE)
)
inst$eval_batch(xdt)
# Get archive data
inst$archive$data()
# }
Run the code above in your browser using DataLab