## Data from Conkey 1980, Kintigh 1989
data("cantabria")
## Replicate fig. 3 from Baxter 2011
rare <- rarefaction(cantabria, sample = 23, method = "baxter")
plot(rare, panel.first = graphics::grid())
## Change graphical parameters
col <- khroma::color("bright")(5)
plot(rare, col = col, lty = 1:5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.