R/mlrinv.R

Defines functions mlrinv

Documented in mlrinv

mlrinv <- function(y) {
  d <- dim(y)[2]
  x <- t( exp(y) )
  a <- Rfast::colCumProds(1 + x)
  cbind( t( x / a), 1 / a[d, ] )
}

Try the Compositional package in your browser

Any scripts or data that you put into this service are public.

Compositional documentation built on Oct. 23, 2023, 5:09 p.m.