library(LRTesteR)
# Null is true
set.seed(1)
x <- rbeta(100, shape1 = 1, shape2 = 1)
beta_shape2_one_sample(x, 1, "two.sided")
# Null is false
set.seed(1)
x <- rbeta(100, shape1 = 1, shape2 = 3)
beta_shape2_one_sample(x, 1, "greater")
Run the code above in your browser using DataLab