# 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")
# The relative importance of individual soil properties on EcM fungal community compositionon
soil <- baima.env[c("pH", "TP", "TK", "AN", "AP", "AK")]
baima.soil.vp <- rdacca.hp(baima.fun.bray, soil,
method = "dbRDA", var.part = TRUE, type = "adjR2")
# Plot unique, common, as well as individual effects
upset_vp(baima.soil.vp, plot.hp = TRUE)
## Example was referenced from Gong et al. (2022)
if(requireNamespace("adespatial", quietly = TRUE)) {
# Distance-based Moran's eigenvector maps (dbMEM) was used to extract spatial relationships
space.dbmem <- adespatial::dbmem(baima.env[c("latitude", "lontitude")])
# The relative importance of groups of environmental factors on EcM fungal community composition
env.list <- list(
elevation = baima.env["altitude"],
season = baima.env["season"],
space = data.frame(space.dbmem)[1:2],
host = baima.env[c("em.GR", "em.abun")],
climate = baima.env["sea.MT"],
soil = baima.env[c("pH", "TP", "TK", "AN", "AP", "AK")]
)
baima.env.vp <- rdacca.hp(baima.fun.bray, env.list,
method = "dbRDA", var.part = TRUE, type = "adjR2")
# Plot unique, common, as well as individual effects
upset_vp(baima.env.vp, plot.hp = TRUE, order.part = "degree")
}
# }
Run the code above in your browser using DataLab