# NOT RUN {
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
## <dbl> <int> <dbl> <dbl> <int> <dbl> <dbl> <lgl>
## 1 0.01 5 85.8 9.93 30 100. 3.90 FALSE
## # ... with 6 more variables: sp <dbl>, t0 <dbl>, t_req <dbl>,
## # threshold_min <dbl>, threshold_max <dbl>, result <chr>
# }
Run the code above in your browser using DataLab