task = makeClassifTask(data=iris, target="Species")
lrn = makeLearner("classif.lda")
inner = makeResampleDesc("Holdout")
outer = makeResampleDesc("CV", iters = 2)
lrn = makeFilterWrapper(lrn, fw.perc=0.5)
mod = train(lrn, task)
print(getFilteredFeatures(mod))
r = resample(lrn, task, outer, extract = function(model) {
getFilteredFeatures(model)
})
print(r$extract)
Run the code above in your browser using DataLab