# Load example data
file <- system.file("extdata", "ExampleDb.gz", package="alakazam")
df <- readChangeoDb(file)
# All groups pass default minimum sampling threshold of 10 sequences
div <- rarefyDiversity(df, "SAMPLE", step_q=0.1, max_q=10, nboot=100)
plotDiversityCurve(div, legend_title="Sample")Run the code above in your browser using DataLab