# NOT RUN {
x1 <- rnorm(10)
x2 <- rnorm(10, 3)
null_spec <- function(y, parameters) {y - parameters[1]}
two_sample_pf(
parameters = 3,
null_specification = null_spec,
x = x1,
y = x2,
statistic = stat_t,
seed = 1234,
B = 1000,
alternative = "two_tail"
)
# }
Run the code above in your browser using DataLab