Nothing
ReadSequence <-function(Seq,m,background,convertDNA){
matriuSeq<-matrix(,(length(Seq)-m),m)
for(i in 1:(length(Seq)-m)){
matriuSeq[i,]<-Seq[i:i+m]
}
matriuSeq<-apply(matriuSeq,1,convertDNA=convertDNA, background=background)
matriuSeq<-t(matriuSeq)
matriuSeq
}
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.