Nothing
read.series.seq <- function (fich="NULL")
#
# Reads a sequence file. File must be saved from excel as TXT, with TAB
# separators
# returns the series of sequences that must be analysed by compseq.
{
if(fich=="NULL") stop("Missing file name\n")
seri<-scan(file=fich,what="character",sep="\n")
seri<-strsplit(seri,"\t")
seri
}
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.