x0 <- rnorm(30, 100, 4)
x1 <- rnorm(5, 91, 7)
eq <- equiv_mean_extremum(data_qual = x0, data_sample = x1, alpha = 0.01)
glance(eq)
## # A tibble: 1 x 9
## alpha n_sample modcv threshold_min_indiv threshold_mean
##
## 1 0.01 5 FALSE 86.2 94.9
## # ... with 4 more variables: result_min_indiv , result_mean ,
## # min_sample , mean_sample
Run the code above in your browser using DataLab