R/gomop.R

In danielhorn/moobench: Multi Objective Optimization Benchmark Functions

#' GOMOP functions
#' 
#' GOMOP functions are multicrit test functions that are composed of multiple
#' single crit test functions. Here we allow only soobench functions as single
#' crit functions. Note that all input parameter for the GOMOP function have the
#' bounds (0, 1) and are stretched to the bounds of the respective soobench functions.
#' 
#' @param in.dim [\code{integer(1)}] \cr
#'   Size of parameter space. Every soobench-function must have this in.dim
#' @param out.dim [\code{integer(1)}] \cr
#'   Size of target space. Is automatically set to length of soobench.funs.
#' @param soobench.funs [\code{list}] \cr
#'   List of \code{\link[soobench]{soo_function}}.
#' @return A \code{mooFunction}.
#' 
#' @references Reference Einfuegen
#' 
#' @aliases gomop GOMOP 
#' 
#' @export
#' 
generateGOMOP = function(in.dim = 30L, out.dim, soobench.funs = list()) {
  in.dim = asCount(in.dim)
  if (!missing(out.dim) && out.dim != length(soobench.funs))
    warning("Overwriting the specified out.dim by length of soobench.funs.")
  out.dim = length(soobench.funs)
  
  # Check all soobench.funs have in.dim in.dim
  lapply(soobench.funs, function(f)
    if (number_of_parameters(f) != in.dim)
      stopf("You specified in.dim %d, but one of your function has in.dim %d.",
        in.dim, number_of_parameters(f))
    )
  
  param.set = makeNumericParamSet(id = "x", len = in.dim, lower = 0, upper = 1)
  
  do.gomop.eval = function(x)
    sapply(soobench.funs, function(f) f(x * (upper_bounds(f) - lower_bounds(f)) + lower_bounds(f)))
  
  mooFunction(
    name = "GOMOP",
    id = collapse(sapply(soobench.funs, function_id), sep = "_"),
    fun = function(x)
      evalMooFunction(do.gomop.eval, param.set, x = x),
    in.dim = in.dim,
    out.dim = out.dim,
    param.set = param.set,
    paretoSet = NULL,
    paretoFront = NULL)
}