R/SplicingEntropy.R

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

SplicingEntropy <- function(x, entropy_type = "default", logbase = 10) {


  if (entropy_type == "default") {
    entropy <- calculateDefaultEntropy(x, logbase)
  }
  else if (entropy_type == "ML") {
    entropy <- calculate_ML_entropy()
  }
  else if (entropy_type == "MM") {
    entropy <- calculateMMEntropy()
  }
  else if (entropy_type == "Jeffreys") {
    entropy <- calculateJeffreysEntropy()
  }
  else if (entropy_type == "Laplace") {
    entropy <- calculateLaplaceEntropy()
  }
  else if (entropy_type == "SG") {
    entropy <- calculateSGEntropy()
  }
  else if (entropy_type == "minimax") {
    entropy <- calculateMinimaxEntropy()
  }
  else if (entropy_type == "CS") {
    entropy <- calculateCSEntropy()
  }
  else if (entropy_type == "NSB") {
    entropy <- calculateNSBEntropy()
  }
  else if (entropy_type == "shrink") {
    entropy <- calculateShrinkEntropy()
  }
  return(entropy)
}