1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
tuneMultiCritNSGA2 = function(learner, task, resampling, measures, par.set, control, opt.path, show.info, resample.fun) {
requirePackages("mco", why = "tuneMultiCritNSGA2", default.method = "load")
low = getLower(par.set)
upp = getUpper(par.set)
# FIXME: we need a vectorized version
args = list(fn = tunerFitnFun, idim = length(low), odim = length(measures),
lower.bounds = low, upper.bounds = upp,
learner = learner, task = task, resampling = resampling, measures = measures,
par.set = par.set, ctrl = control, opt.path = opt.path, show.info = show.info,
convertx = convertXNumeric, remove.nas = FALSE, resample.fun = resample.fun)
args = c(args, control$extra.args)
do.call(mco::nsga2, args)
makeTuneMultiCritResultFromOptPath(learner, par.set, measures, resampling, control, opt.path)
}
|
