## Data from Aitchison 1986
data("hongite")
## Coerce to compositional data
coda <- as_composition(hongite)
## Isometric log-ratio
ilr <- transform_ilr(coda)
plr <- transform_plr(coda)
## Inverse transformation
inv_ilr <- transform_inverse(ilr)
all.equal(coda, inv_ilr)
inv_plr <- transform_inverse(plr)
all.equal(coda, inv_plr)
Run the code above in your browser using DataLab