# \donttest{
set.seed(12345)
data(phylocom)
rand_test <- cpr_rand_test(
phylocom$comm, phylocom$phy,
null_model = "curveball", metrics = c("pe", "rpe"), n_reps = 10
)
cpr_classify_endem(rand_test)
# }
Run the code above in your browser using DataLab