# this function calculates entropy of cohort distributions
entropy.calculator <- function(cohorts){
x = entropy(table(cohorts),unit = "log2")
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.