fixing plot function

slds-lmu · Apr 5, 2019 · 09487b8 · 09487b8
1 parent 55be3ff
commit 09487b8
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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]