# Generate data
set.seed(456)
control <- rnorm(10, mean = 5)
treatment1 <- rnorm(10, mean = 6)
treatment2 <- rnorm(10, mean = 7)
sample_data <- list(control, treatment1, treatment2)
# Run MaxD test at 5% significance level
TreeMaxD(sample_data, 0.05, n.boot = 10000)
# \donttest{
TreeMaxD(sample_data, 0.05, n.boot = 100000)
# }
Run the code above in your browser using DataLab