modelHomotypic <- function(annotations) {
anno.freq <- table(annotations)/length(annotations)
x <- sum(anno.freq^2)
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.