https://github.com/cran/FSelector
Tip revision: 1acf016f2b5cbaf99f6418c3eb7d5734215ebcf1 authored by Lars Kotthoff on 22 August 2023, 17:10:02 UTC
version 0.34
version 0.34
Tip revision: 1acf016
search.exhaustive.R
exhaustive.search <- function(attributes, eval.fun) {
len = length(attributes)
if(len == 0)
stop("Attributes not specified")
eval.fun = match.fun(eval.fun)
best = list(
result = -Inf,
attrs = rep(0, len)
)
# main loop
# for each subset size
for(size in 1:len) {
child_comb = combn(1:len, size)
# for each child
for(i in 1:dim(child_comb)[2]) {
subset = rep(0, len)
subset[child_comb[, i]] = 1
result = eval.fun(attributes[as.logical(subset)])
if(result > best$result) {
best$result = result
best$attrs = subset
}
}
}
return(attributes[as.logical(best$attrs)])
}