# 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])
# )
#}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.