R/entropyMM.R

Defines functions entropyMM

Documented in entropyMM

entropyMM <-
function(cellCounts, unit = unit){
  ans <- entropyML(cellCounts, unit = unit)
  
  n <- sum(cellCounts)
  m <- sum(cellCounts > 0)
  
  ans <- ans + (m - 1)/(2*n)
  return(ans)
}

Try the synRNASeqNet package in your browser

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

synRNASeqNet documentation built on May 2, 2019, 6:01 a.m.