## Make test data sind available
data(sind)
sind.mat <- as.matrix(sind[, -c(1:3)])
## Undertake ilr transform, note necessity
## of converting percent Fe to mg/kg
sind.mat[, 2] <- sind.mat[, 2] * 10000
temp <- ilr(sind.mat)
temp
## Clean-up and detach test data
rm(sind.mat)
rm(temp)
Run the code above in your browser using DataLab