todo-files/infillOptMultiObjRandom.R

In berndbischl/mlrMBO: Bayesian Optimization and Model-Based Optimization of Expensive Black-Box Functions

# FIXME: For the moment excluded - talk about it
# Random Search for the multi-objective optimization of all models
#infillOptMultiObjRandom = function(infill.crit, models, control, par.set, opt.path, design, ...) {
#  requirePackages("emoa")
#
#  newdesign = generateDesign(control$infill.opt.multiobj.randomsearch.points, par.set,
#    randomLHS)
#
#  FUN.VALUE = rep(0, control$infill.opt.multiobj.randomsearch.points)
#  ys = vapply(models, infill.crit, FUN.VALUE = FUN.VALUE, points = newdesign, control = control,
#    par.set = par.set, design = design, ...)
#
#  front.inds = !is_dominated(t(ys))
#  return(list(
#    points = recodeTypes(newdesign[front.inds, , drop = FALSE], par.set),
#    crit.vals = ys[front.inds, , drop = FALSE])
#  )
#}