set.seed(42)
x <- rexp(30) # Smaller sample: 30 instead of 50
# Fast example with reduced replications (< 5 sec) - UNWRAPPED
studentized_ci(x, q = 0.75, R = 100, Rinner = 20)
# \donttest{
# Larger, more accurate example (takes > 5 sec) - WRAPPED in \donttest
set.seed(42)
x <- rexp(50)
studentized_ci(x, q = 0.75, R = 1000, Rinner = 200)
# }
Run the code above in your browser using DataLab