## Data from Aitchison 1986
data("hongite")
## Coerce to compositional data
coda <- as_composition(hongite)
## Centered log-ratio
clr <- transform_clr(coda)
## Inverse transformation
inv_clr <- transform_inverse(clr)
all.equal(coda, inv_clr)
Run the code above in your browser using DataLab