x <- c(rnorm(20, 100, 5), rnorm(20, 105, 6))
k <- c(rep(1, 20), rep(2, 20))
a <- ad_ksample(x = x, groups = k)
glance(a)
## A tibble: 1 x 7
## alpha n k sigma ad p reject_same_dist
##
## 1 0.025 40 2 0.727 4.37 0.00487 TRUE
Run the code above in your browser using DataLab