simData <- simulatedData(p = 50, n = 100, mu = 100, sigma = 0.25,
ppower = 0.73, noise = FALSE)
cellCounts <- table(simData$counts[1, ])
eML <- entropyML(cellCounts, unit = "nat")
Run the code above in your browser using DataLab