# NOT RUN {
task = tsk("german_credit")
learner = lrn("classif.rpart")
rr = resample(task, learner, rsmp("cv", folds = 3), store_models = TRUE)
scores = rr$score(msr("selected_features"))
scores[, c("iteration", "selected_features")]
# }
Run the code above in your browser using DataLab