# NOT RUN {
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
## <dbl> <int> <lgl> <dbl> <dbl>
## 1 0.01 5 FALSE 86.2 94.9
## # ... with 4 more variables: result_min_indiv <chr>, result_mean <chr>,
## # min_sample <dbl>, mean_sample <dbl>
# }
Run the code above in your browser using DataLab