#example with dune database from vegan
library(vegan)
data(dune)
example1 <- optim_species(dune, n.plt=15, frequent=FALSE, plot=FALSE)
plot_opt(example1)
plot_opt(example1, choices=c("Richness", "SimpsonBeta"))
#example with auplots database from ausplotsR
if (FALSE) {
library(ausplotsR)
ausplotsdata <- get_ausplots(veg.PI=TRUE)
ausplotsPAdata <- species_table(ausplotsdata$veg.PI, m_kind="PA",
species_name="SN")
example2 <- optim_species(ausplotsPAdata, n.plt=5, iterations=5, plot=FALSE)
plot_opt(example2)
plot_opt(example2,
choices=c("RRR", "SimpsonBeta", "Frequent", "SimpsonBeta_randSeed"))
}
Run the code above in your browser using DataLab