# NOT RUN {
x1 <- rnorm(10)
x2 <- rnorm(10, 3)
null_spec <- function(y, parameters) {y - parameters[1]}
two_sample_ci(
null_specification = null_spec,
x = x1,
y = x2,
statistic = stat_t,
alternative = "two_tail",
lower_bound = 2,
upper_bound = 4,
B = 100L
)
# }
Run the code above in your browser using DataLab