# NOT RUN {
# Calculate diversity
div <- rarefyDiversity(ExampleDb, "SAMPLE", nboot=100)
# Plot diversity
plotDiversityCurve(div, legend_title="Sample")
#' # Plot diversity
plotDiversityCurve(div, legend_title="Sample", score="evenness")
# }
Run the code above in your browser using DataLab