# NOT RUN {
library(rdacca.hp)
## A simple example of partial dbRDA
data(baima.fun)
data(baima.env)
# Bray-Curtis index was used to calculate community composition dissimilarity
baima.fun.bray <- vegdist(baima.fun, method = "bray")
# Quantify the individual effects of soil properties on EcM fungal community composition
soil <- baima.env[c("pH", "TP", "TK", "AN", "AP", "AK")]
baima.soil.vp <- rdacca.hp(baima.fun.bray, soil, method = "dbRDA", type = "adjR2")
# Plot individual effects
barplot_hp(baima.soil.vp, col.fill = "var",
col.color = c("#8DD3C7", "#FFFFB3", "#BEBADA", "#FB8072", "#80B1D3", "#FDB462", "#B3DE69"))
# }
Run the code above in your browser using DataLab