fix bug in computeCrowdingDistance

jakobbossek · Aug 25, 2015 · 1f89448 · 1f89448
1 parent 2b53dad
commit 1f89448
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/computeCrowdingDistance.R b/R/computeCrowdingDistance.R
@@ -22,8 +22,10 @@ computeCrowdingDistance = function(x) {
     cds[ord[1]] = Inf
     cds[ord[n]] = Inf
     # update the remaining crowding numbers
-    for (j in 2:(n - 1L)) {
-      cds[ord[j]] = cds[ord[j]] + (x[i, ord[j + 1L]] - x[i, ord[j - 1L]])
+    if (n > 2L) {
+      for (j in 2:(n - 1L)) {
+        cds[ord[j]] = cds[ord[j]] + (x[i, ord[j + 1L]] - x[i, ord[j - 1L]])
+      }
     }
   }
   return(cds)