# 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 CCA analysis of biological data explained
# by all the environmental variables of the soil data:
Amazonia.cca <- cca_pertables(Amazonia100 ~., data=soils)
Amazonia.cca
plot(Amazonia.cca)
# }
# 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.cca <- cca_pertables(Amazonia4.p2 ~., data=soils)
Amazonia.cca
plot(Amazonia.cca)
# }
Run the code above in your browser using DataLab