R/hzhf07.R

In danielhorn/hierarchTestFuns: Test functions for numerical optimization with hierarchical parameters

#'@rdname hzhf
#'@export


makeHZHF07 = function(in.dim, k, c = 0.5, s = 0, check = TRUE) {

  in.dim = asInt(in.dim, lower = 3L)
  k = asInteger(k, lower = 2L, upper = in.dim - 1L)
  if (k %% 2 != 0)
    stop("k must be divisble by 2.")

  z.max = 2 * 1:in.dim

  trafo1 = makeWFGTrafo(c(
    list(list(name = "identity",ids = 1)),
    lapply(1 + seq_len(k - 1), function(i)
      list(name = "b_param", ids = i, y.prime.ids = 1:(i - 1),
        params = list(u = mean, A = 0.98 / 9.98, B = 0.02, C = 10)
      )),
    list(list(name = "identity",ids = (k + 1):in.dim)
    )))

  trafo2 = makeWFGTrafo(list(
    list(name = "s_multi", ids = 1:in.dim, params = list(A = 5, B = 10, C = 0.35))
  ))

  rIds1 = split(1:k, rep(1:(k / 2), each = 2L))

  trafo3 = makeWFGTrafo(c(
    lapply(seq_along(rIds1), function(i) {
      list(name = "r_nonsep", ids = rIds1[[i]], params = list(A = 2))
    }),
    list(list(name = "identity", ids = (k + 1):in.dim))
  ))

  k2 = k / 2
  in.dim2 = in.dim - k2

  trafo4 = makeWFGTrafo(list(
    list(name = "r_sum", ids = 1:k2, params = list(w = 2 * 1:k2)),
    list(name = "r_sum", ids = (k2 + 1):in.dim2, params = list(w = 2 * (k2 + 1):in.dim2))))


  trafos = list(trafo1, trafo2, trafo3, trafo4)
  makeCustomHierarchWFG(name = "HZHF07", in.dim = in.dim, k = k, z.max = z.max,
    trafos = trafos, c = c, s = s, check = check)
}