# NOT RUN {
data(Amazonia)
data(soils)
# Define a new index that includes the terms used in the \code{Amazonia} dataset to define
# undetermined taxa at different taxonomic levels
index.Amazon <- c(paste("sp.", rep(1:20), sep=""), "Indet.", "indet.")
# Generate a pertables object (i.e. a list of biological data tables simulated from taxonomic
# uncertainty)
# }
# NOT RUN {
Amazonia100 <- pertables(Amazonia, index=index.Amazon, nsim=100)
# Assess the effects of taxonomic uncertainty on a PERMANOVA (i.e., adonis) test:
Amazonia.adonis <- adonis_pertables(Amazonia100 ~ Ca + K + Mg + Na, data=soils)
Amazonia.adonis
plot(Amazonia.adonis)
# }
# NOT RUN {
# Fast example for Rcheck
Amazonia4.p2 <- pertables.p2(Amazonia[1:50,], index=index.Amazon, nsim=4, ncl=2, iseed=4)
set.seed(2)
Amazonia.adonis <- adonis_pertables(Amazonia4.p2 ~ Ca + K + Mg + Na, data=soils)
Amazonia.adonis
plot(Amazonia.adonis)
# }
Run the code above in your browser using DataLab