R/ReadSequence.R

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
}

Try the MEET package in your browser

Any scripts or data that you put into this service are public.

MEET documentation built on May 2, 2019, 1:45 p.m.