R/cal_entropy.R
In yaConsensus: Consensus Clustering of Omic Data

cal_entropy <-
function(x) {
  freqs <- table(x)/length(x)
  freqs = freqs[freqs>0]
  return(-sum(freqs * log(freqs))/log(length(x)))
}

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

yaConsensus documentation built on April 3, 2025, 10:12 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the yaConsensus package in your browser