'alignment.site.summary'<-
function(seqfile,format="phylip",is.cds=FALSE)
{
data = read.dna.seq(seqfile,format=format)
seq = tolower(data$seq)
site = site.summary(seq,is.cds)
site
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.