selectFeaturesExhaustive = function(learner, task, resampling, measures, bit.names, bits.to.features, control, opt.path, show.info) {
p = length(bit.names)
states = list(rep(0, p))
for (i in seq_len(min(control$max.features, p, na.rm = TRUE))) {
x = combn(seq_len(p), i)
s = lapply(seq_col(x), function(j) {
b = rep(0, p)
b[x[, j]] = 1
b
})
states = c(states, s)
}
evalOptimizationStatesFeatSel(learner, task, resampling, measures, bits.to.features, control,
opt.path, show.info, states, 1L, as.integer(NA))
makeFeatSelResultFromOptPath(learner, measures, control, opt.path)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.