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