library(LRTesteR)
# Null is true
set.seed(1)
x <- rcauchy(n = 100, location = 1, scale = 2)
cauchy_scale_one_sample(x, 2, "two.sided")
# Null is false
set.seed(1)
x <- rcauchy(n = 100, location = 3, scale = 2)
cauchy_scale_one_sample(x, 1, "greater")
Run the code above in your browser using DataLab