# 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
cdt(acomp(1:5))
cdt(rcomp(1:5))Run the code above in your browser using DataLab