bugfix: naive domhv was not included

slds-lmu · Mar 28, 2019 · c9e1540 · c9e1540
1 parent b588c51
commit c9e1540
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -203,7 +203,8 @@ collectResult <- function(ecr.object, aggregate.perresult = list(domHV = functio
       naiveHoldoutDomHV(eval.fit, hout.fit, ref.point)
     }, fitnesses, hofitnesses)
 
-    resdf <- cbind(resdf, hout = aggregate.fitness(hofitnesses), true.hout.domHV,
+    resdf <- cbind(resdf, hout = aggregate.fitness(hofitnesses),
+      true.hout.domHV, naive.hout.domHV,
       cor = corcols)
   }
   resdf