R/entropy_code1-copy.R

In peterszikora/SplicingEntropy: SplicingEntropy uses transcript-level abundancies to analyze and calculate splicing diversity values

# entropyMethods.R

#`
#`
#`
calculateDefaultEntrop <- function() {
  x_log = ifelse(is.finite(log(x, base = logbase)), log(x, base=logbase), 0)
  entropy = -sum(x * x_log)

  return(entropy)
}

calculateMLEntropy <- function(x, method) {


}

calculateMMEntropy <-