# 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.")
# }
# NOT RUN {
# Generate a pertables object (i.e. a list of biological data tables simulated from taxonomic
# uncertainty)
Amazonia100 <- pertables(Amazonia, index=index.Amazon, nsim=100)
# Assess the effects of taxonomic uncertainty on a Mantel test of biological dissimilarity
# correlated to soil dissimilarity among sites:
Amazonia.mantel <- mantel_pertables(pertab=Amazonia100, env=soils, dist.method = "bray")
Amazonia.mantel
plot(Amazonia.mantel)
# }
# 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.mantel <- mantel_pertables(pertab=Amazonia4.p2, env=soils, dist.method = "bray")
Amazonia.mantel
plot(Amazonia.mantel)
# }
Run the code above in your browser using DataLab