# Calculate diversity
div <- alphaDiversity(ExampleDb, group="sample_id", 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