diff --git a/R/plotting.R b/R/plotting.R index fd82735..ae25d15 100644 --- a/R/plotting.R +++ b/R/plotting.R @@ -15,6 +15,7 @@ #' @export paretoEdges <- function(fitness, refpoint) { fitness <- as.matrix(t(fitness)) + front <- fitness # TODO see line below if (ncol(fitness) > 1) # TODO: can go when https://github.com/jakobbossek/ecr2/issues/120 is fixed front <- fitness[, nondominated(fitness), drop = FALSE] front <- front[, order(front[1, ]), drop = FALSE]