# NOT RUN {
# the cdt is defined by
cdt <- function(x) UseMethod("cdt",x)
cdt.default <- function(x) x
cdt.acomp <- clr
cdt.rcomp <- cpt
cdt.aplus <- ilt
cdt.rplus <- iit
# }
# NOT RUN {
x <- acomp(1:5)
(ds <- cdt(x))
cdtInv(ds,x)
(ds <- cdt(rcomp(1:5)))
cdtInv(ds,rcomp(x))
data(Hydrochem)
x = Hydrochem[,c("Na","K","Mg","Ca")]
y = acomp(x)
z = cdt(y)
y2 = cdtInv(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