# \donttest{
sims <- boot_two(data = coreid_data,
groups_col = col,
response = response,
group1 = "Catorhintha schaffneri_APM",
group2 = "Catorhintha schaffneri_NPM",
n_max = 30,
iter = 99)
plots <- plot_two_groups(x = sims,
n_min = 3,
n_max = 30,
colour_exp = "gold",
colour_extrap = "darkgreen",
legend.position = "right")
# }
Run the code above in your browser using DataLab