R/methLevels-method.R

Defines functions .replace.methLevels .methLevels

.methLevels <- function(object) {
    return(assays(object)$methLevels)
}

.replace.methLevels <- function(object, value) {
    assays(object, withDimnames = FALSE)$methLevels <- value
    return(object)
}

#' @rdname methLevels-method
#' @aliases methLevels-method methLevels
setMethod("methLevels", signature(object = "BSDMC"), .methLevels)

#' @rdname methLevels-method
#' @aliases methLevels-method methLevels<-
setReplaceMethod("methLevels", signature(object = "BSDMC", value = "matrix"),
    .replace.methLevels)

Try the DMCFB package in your browser

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

DMCFB documentation built on Nov. 8, 2020, 8:03 p.m.