## Data from Aitchison 1986
data("slides")
## Coerce to compositional data
coda <- as_composition(slides)
## Quick description
describe(coda)
## Group
coda <- group(coda, by = slides$slide)
describe(coda)
Run the code above in your browser using DataLab