## Make test data available
data(sind)
attach(sind)
sind.mat <- as.matrix(sind[, -c(1:3)])
## Ensure all data are in the same units (mg/kg)
sind.mat2open <- sind.mat
sind.mat2open[, 2] <- sind.mat2open[, 2] * 10000
## Compute and display clr transformed data
prmatrix(clr(sind.mat2open))
## Compute ilr transformed data
sind.ilr <-ilr(sind.mat2open)
## Compute orthonormal basis matrix, sind is a 25 by 6 data set
V <- orthonorm(6)
prmatrix(V)
## Back-transform ilr transformed data to clr and display
temp <- sind.ilrprmatrix(temp)
## Clean-up and detach test data
rm(sind.ilr)
rm(temp)
rm(V)
detach(sind)
Run the code above in your browser using DataLab