From 38a80678f1cbf758a7e3fc41d15e9d379252d755 Mon Sep 17 00:00:00 2001
From: "Mattan S. Ben-Shachar" <mattansb@msbstats.info>
Date: Fri, 9 Oct 2026 09:18:33 +0300
Subject: [PATCH] fix #713

Use latest version of datawizard
---
 DESCRIPTION                  |  2 +-
 tests/testthat/test-rankES.R | 14 ++++++++++++++
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 94f18d8c..74656e0d 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -75,7 +75,7 @@ Imports:
     insight (>= 1.5.4),
     parameters (>= 0.29.3),
     performance (>= 0.18.2),
-    datawizard (>= 1.4.0),
+    datawizard (>= 1.4.00001),
     stats,
     utils
 Suggests:
diff --git a/tests/testthat/test-rankES.R b/tests/testthat/test-rankES.R
index dbabeeeb..5e8f8b7f 100644
--- a/tests/testthat/test-rankES.R
+++ b/tests/testthat/test-rankES.R
@@ -283,4 +283,18 @@ test_that("kendalls_w", {
   warns <- capture_warnings(W1 <- kendalls_w(m, ci = NULL))
   expect_match(warns[1], "dropped")
   expect_equal(W1, kendalls_w(m[, -1], ci = NULL, verbose = FALSE))
+
+  d <- data.frame(
+    y = OrchardSprays$decrease,
+    g = factor(OrchardSprays$treatment),
+    b = factor(OrchardSprays$rowpos)
+  )
+  d_ordered <- d[order(d$b, d$g), ]
+
+  w1 <- kendalls_w(tapply(d$y, list(d$b, d$g), identity), ci = NULL)
+  w2 <- kendalls_w(y ~ g | b, data = d_ordered, ci = NULL)
+  w3 <- kendalls_w(y ~ g | b, data = d, ci = NULL)
+
+  expect_identical(w2[[1]], w1[[1]])
+  expect_identical(w3[[1]], w1[[1]])
 })