# NOT RUN {
library(compositions)
data("jura", package="gstat")
Y = acomp(jura.pred[,c(10,12,13)])
par(mfrow=c(1,1))
plot(Y)
sph = sphTrans(Y)
class(sph)
z = sph(Y)
plot(z)
cor(cbind(z, ilr(Y)))
colMeans(cbind(z, ilr(Y)))
# }
Run the code above in your browser using DataLab