https://github.com/cran/FSelector
Revision a6a4107a08051dfddc3c733102d002fd8617ab9e authored by Lars Kotthoff on 25 October 2014, 00:00:00 UTC, committed by Gabor Csardi on 25 October 2014, 00:00:00 UTC
1 parent c389439
Raw File
Tip revision: a6a4107a08051dfddc3c733102d002fd8617ab9e authored by Lars Kotthoff on 25 October 2014, 00:00:00 UTC
version 0.20
Tip revision: a6a4107
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)])
}
back to top