fix issue in computeGenerationalDistance

jakobbossek · Aug 10, 2015 · f2e69a3 · f2e69a3
1 parent 8484ab5
commit f2e69a3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/computeAverageHausdorffDistance.R b/R/computeAverageHausdorffDistance.R
@@ -44,7 +44,7 @@ computeAverageHausdorffDistance = function(A, B, p = 1) {
 #'
 #' @export
 computeGenerationalDistance = function(A, B, p = 1) {
-  dists = apply(A, 1L, function(a) computeDistanceFromPointToSetOfPoints, B)
+  dists = apply(A, 1L, function(a) computeDistanceFromPointToSetOfPoints(a, B))
   GD = mean(dists^p)^(1 / p)
   return(GD)
 }