improved PairedDifference

qddyy · Nov 13, 2024 · 69cdd31 · 69cdd31
1 parent c902a01
commit 69cdd31
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/PairedDifference.R b/R/PairedDifference.R
@@ -86,7 +86,7 @@ PairedDifference <- R6Class(
                 } else score
             } else abs(private$.data$x)
 
-            private$.statistic_func <- function(x, y) sum(abs_diff[x > y])
+            private$.statistic_func <- function(x, y) sum(abs_diff * (x > y))
         },
 
         .calculate_p = function() {