improved AnsariBradley

qddyy · Oct 17, 2023 · cfcd663 · cfcd663
1 parent d556e06
commit cfcd663
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/AnsariBradley.R b/R/AnsariBradley.R
@@ -57,7 +57,7 @@ AnsariBradley <- R6Class(
 
             mu <- if (even) m * (N + 2) / 4 else m * (N + 1)^2 / (4 * N)
 
-            if (!any(duplicated(c(private$.data$x, private$.data$y)))) {
+            if (anyDuplicated(c(private$.data$x, private$.data$y)) == 0) {
                 sigma2 <- if (even) {
                     (m * n * (N + 2) * (N - 2)) / (48 * (N - 1))
                 } else {