Update rank_ANOVA.R

easystats · Jul 21, 2024 · 59d6143 · 59d6143
1 parent 5adb681
commit 59d6143
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/rank_ANOVA.R b/R/rank_ANOVA.R
@@ -281,8 +281,10 @@ kendalls_w <- function(x, groups, blocks, data = NULL,
   boot_fun <- function(.data, .i) {
     split(.data$x, .data$groups) <-
       lapply(split(.data$x, .data$groups),
-        sample,
-        replace = TRUE
+        function(v) {
+          if (length(v) < 2L) return(v)
+          sample(v, size = length(v), replace = TRUE)
+        }
       )
     foo_es(.data)
   }