# NOT RUN {
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
## <dbl> <int> <int> <dbl> <dbl> <dbl> <lgl>
## 1 0.025 40 2 0.727 4.37 0.00487 TRUE
# }
Run the code above in your browser using DataLab