Nothing
pindel <- function(DNAbin, proportion = TRUE, indelmod = "indel"){
col <- dim(DNAbin)[2]
raw <- dist.dna(DNAbin, model = "N", pairwise.deletion = TRUE)
indel <- dist.dna(DNAbin, model = indelmod)
if(proportion)(raw+indel)/col else raw+indel
}
#test <- read.dna("/home/sam/Desktop/testSeqs.fas", format="fasta")
#raw <- dist.dna(test, model="raw")
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.