R/coda_operations.R

Defines functions closure

closure <- function(x, d) {
  if (sum(x) == 1) {
    print("Already a composition")
  } else if (sum(x) == d) {
    return(x / d)
  }
}
emrstats/composr documentation built on Nov. 4, 2019, 11:54 a.m.