Nothing
tajima.K <-
function(DNAbin, prop = TRUE){
res <- mean(dist.dna(DNAbin, model="N"))
if(prop) res <- res/dim(DNAbin)[2]
res
}
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.