# NOT RUN {
# the idt is defined by
idt <- function(x) UseMethod("idt",x)
idt.default <- function(x) x
idt.acomp <- function(x) ilr(x)
idt.rcomp <- function(x) ipt(x)
idt.aplus <- ilt
idt.rplus <- iit
# }
# NOT RUN {
idt(acomp(1:5))
idt(rcomp(1:5))
data(Hydrochem)
x = Hydrochem[,c("Na","K","Mg","Ca")]
y = acomp(x)
z = idt(y)
y2 = idtInv(z,y)
par(mfrow=c(2,2))
for(i in 1:4){plot(y[,i],y2[,i])}
# }
Run the code above in your browser using DataLab