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