R/alignment.site.summary.R

'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
}
lliu1871/phybase documentation built on April 21, 2024, 3:16 a.m.