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]]) })