## Data from Aitchison 1986
data("hongite")
## Coerce to compositional data
coda <- as_composition(hongite)
## Aitchison distance
## (euclidean distance between CLR-transformed compositions)
d <- dist(coda)
## Cluster dendrogram
h <- hclust(d, method = "ward.D2")
plot(h)
Run the code above in your browser using DataLab