xyz <- rbind(c(0.03,99.88,0.09),
c(70.54,25.95,3.51),
c(72.14,26.54,1.32))
colnames(xyz) <- c('a','b','c')
rownames(xyz) <- 1:3
uv <- alr(xyz)
XYZ <- alr(uv,inverse=TRUE)
xyz/XYZ
Run the code above in your browser using DataLab