R/methStates-method.R

Defines functions replace.methStates methStates

Documented in methStates

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

.replace.methStates <- function(object, value) {
    assays(object)$methStates <- value
    return(object)
}

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

#' @rdname methStates-method
#' @aliases methStates-method methStates<-
setReplaceMethod("methStates", signature(object = "BSDMCs", value = "matrix"), 
    .replace.methStates)
shokoohi/DMCHMM documentation built on Sept. 6, 2018, 1:55 p.m.