https://github.com/cran/robCompositions
Raw File
Tip revision: b075661d51a7a1ee9b00d94017b8a6be03730ba4 authored by Matthias Templ on 29 April 2009, 00:00:00 UTC
version 1.2.2
Tip revision: b075661
ilr.R
`ilr` <-
function(x){
  x.ilr=matrix(NA,nrow=nrow(x),ncol=ncol(x)-1)
  D=ncol(x)
  for (i in 1:ncol(x.ilr)){
    x.ilr[,i]=sqrt((D-i)/(D-i+1))*log(((apply(as.matrix(x[,(i+1):D,drop=FALSE]),1,prod))^(1/(D-i)))/(x[,i]))
} 
invisible(x.ilr)
}

back to top