if (FALSE) {
data(RutorGlacier)
Qspecies <- dbMANOVAspecies(RutorGlacier$Abund, RutorGlacier$Fac,
nrep=9999, global=TRUE)
Qspecies_adj <- dbMANOVAspecies(RutorGlacier$Abund, RutorGlacier$Fac,
nrep=9999, global=FALSE, padj = "BY")
# In Qspecies and Qspecies_adj, Column "Std.Obs" contains the SES values.
# Now for all species that showed significant compositional difference among
# the three groups of plots (with a nominal alpha error of 0.05), we can test for
# pairwise differences among all pairs of groups thanks to function
# dbMANOVAspecies_pairwise as shown below:
# without any correction for multiple tests
Qspeciespairwise <- dbMANOVAspecies_pairwise(Qspecies)
summary(Qspeciespairwise)
# NAs are present in the data frame above for species that were associated
# to non-significant test in object Qspecies (where tests were done over all groups);
# and also, for species that are absent from the two compared groups of plots
# (e.g. species Adenostyles leucophylla, in mid- and late-successional stages).
# with correction for multiple test
Qspeciespairwise_adj <- dbMANOVAspecies_pairwise(Qspecies_adj)
summary(Qspeciespairwise_adj)
# Here again, NAs are present in the data frame above for species that were
# associated to non-significant test in object Qspecies_adj
# (where tests were done over all groups); and also, for species that are absent
# from the two compared groups of plots (e.g. species Adenostyles leucophylla,
# in mid- and late-successional stages).
# See Ricotta et al. 2021 Appendix 3 for details.
}
Run the code above in your browser using DataLab