Nothing
inCon <- function(DNAbin){
distDNA <- as.matrix(dist.dna(DNAbin, model = "raw"))
output <- ifelse(distDNA == 0, 0, 1)
output
}
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.