# \donttest{
sims <- boot_one(coreid_data,
groups_col = col,
groups_which = "Catorhintha schaffneri_APM",
n_max = 30,
response = response)
plot_one_group(x = sims,
n_min = 3,
n_max = 15,
colour_exp = "darkblue",
colour_extrap = "green",
legend.position = "right")
# }
Run the code above in your browser using DataLab