Nothing
# Cluster Entropy
ClusterEntropy <- function(ComputedClusters, TrueClasses) {
cross.tab <- table(ComputedClusters,TrueClasses)
# Compute the inner sum for each clusters
inner.sum <- apply(cross.tab,1,function(x){
c.size <- sum(x)
sum(x * ifelse(x!=0,log2(x/c.size),0))})
# Calculate entropy
- sum(inner.sum)/(sum(cross.tab) * log2(ncol(cross.tab)))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.