# Load example data
file <- system.file("extdata", "ExampleDb.gz", package="alakazam")
df <- readChangeoDb(file)
# Group by sample identifier
div <- rarefyDiversity(df, "SAMPLE", step_q=1, max_q=10, nboot=100)
plotDiversityCurve(div, legend_title="Sample")
# Grouping by isotype rather than sample identifier
div <- rarefyDiversity(df, "ISOTYPE", min_n=40, step_q=1, max_q=10, nboot=100)
plotDiversityCurve(div, legend_title="Isotype")Run the code above in your browser using DataLab