R/rawToRel.R

In BiSeq: Processing and analyzing bisulfite sequencing data

.rawToRel <- function(object){
  object.rel <- BSrel(colData = colData(object),
                      rowRanges = rowRanges(object),
                      methLevel = methReads(object) / totalReads(object)
                      )
  return(object.rel)
}

setMethod("rawToRel",
          signature=c(object = "BSraw"),
          .rawToRel)