# \donttest{
set.seed(1)
d <- data.frame(
group = rep(c("A", "B"), each = 10),
value = rnorm(20)
)
w <- stats::wilcox.test(value ~ group, data = d, exact = FALSE)
rFromWilcoxAdjusted(w, N = nrow(d), adjustFactor = 2)
# }
Run the code above in your browser using DataLab