Nothing
align.clustalw <-function(filein, fileout="Sq.fa", call){
read.fasta <- get("read.fasta", pos = "package:seqinr")
strtocall <- paste(call, ' -infile=',filein, ' -outfile=',fileout, ' -output=FASTA', sep='' )
system(strtocall)
sq<-read.fasta(file=fileout)
sqalineada<-matrix(,length(sq),length(sq[[1]]))
for (i in c(1:length(sq))){
sqalineada[i,]<-sq[[i]]
}
return(sqalineada)
}
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.