R/ShannonEntropy.R

Defines functions ShannonEntropy

ShannonEntropy <- function(p, normalize = FALSE){
  if (normalize){
    p <- p / sum(p)
  }
  s <- p * log2(1 / p)
  return(sum(s))
}
jakeyeung/TissueCiradianAnalysis documentation built on Aug. 7, 2020, 7:58 p.m.