# 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 LRT at 5% significance level
TreeLRT(sample_data, 0.05, n.boot = 1000)
# \donttest{
TreeLRT(sample_data, 0.05, n.boot = 100000)
# }
Run the code above in your browser using DataLab