# \donttest{
if (requireNamespace("picante")) {
data(otutab, package = "pcutils")
df2tree(taxonomy) -> phylo
b_NTI1(phylo, otutab) -> bnti_res
RCbray1(otutab, reps = 9) -> rc_res
data.frame(
type = factor(c("Homo_S", "Heter_S", "Homo_D", "D_limit", "Undominated"),
levels = c("Homo_S", "Heter_S", "Homo_D", "D_limit", "Undominated")
),
number = c(
sum(bnti_res < (-2)), sum(bnti_res > 2),
sum((abs(bnti_res) < 2) & (abs(rc_res) < 0.95)),
sum((abs(bnti_res) < 2) & (rc_res < (-0.95))),
sum((abs(bnti_res) < 2) & (rc_res > 0.95))
)
) -> com_pro
pcutils::gghuan(com_pro, reorder = FALSE)
}
# }
Run the code above in your browser using DataLab