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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.