R/getReferencePoint.R

In jakobbossek/mcMST: A Toolbox for the Multi-Criteria Minimum Spanning Tree Problem

# @title Helper to approximate reference point for EMOA runs.
#
# @description Here we take the sum of the n largest edges (this is always an upper bound
# for each tree with (n-1) edges) in each objective.
# @param instance [\code{mcMST}]\cr
#   Problem instance
# @return [\code{numeric(2)}]
getReferencePoint = function(instance) {
  assertClass(instance, "grapherator")
  n = grapherator::getNumberOfNodes(instance)

  sapply(instance$weights, function(wmat) {
    wmat = as.numeric(wmat)
    wmat = wmat[!is.infinite(wmat)]
    sum(sort(wmat, decreasing = TRUE)[1:n])
  })
}