x0 <- rnorm(30, 100, 4)
x1 <- rnorm(5, 91, 7)
eq <- equiv_change_mean(data_qual = x0, data_sample = x1, alpha = 0.01)
glance(eq)
## # A tibble: 1 x 14
## alpha n_sample mean_sample sd_sample n_qual mean_qual sd_qual modcv
##
## 1 0.01 5 85.8 9.93 30 100. 3.90 FALSE
## # ... with 6 more variables: sp , t0 , t_req ,
## # threshold_min , threshold_max , result
Run the code above in your browser using DataLab