Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
68 lines (51 sloc) 1.22 KB
#' @name alphaThreshold
#' @inherit bioverbs::alphaThreshold
#' @param ... Additional arguments.
#' @examples
#' data(rse, package = "acidtest")
#'
#' ## Annotated
#' alphaThreshold(rse) <- 0.05
#' alphaThreshold(rse)
NULL
#' @rdname alphaThreshold
#' @name alphaThreshold
#' @importFrom bioverbs alphaThreshold
#' @usage alphaThreshold(object, ...)
#' @export
NULL
#' @rdname alphaThreshold
#' @name alphaThreshold<-
#' @importFrom bioverbs alphaThreshold<-
#' @usage alphaThreshold(object, ...) <- value
#' @export
NULL
alphaThreshold.Annotated <- # nolint
function(object) {
validObject(object)
metadata(object)[["alpha"]]
}
#' @rdname alphaThreshold
#' @export
setMethod(
f = "alphaThreshold",
signature = signature("Annotated"),
definition = alphaThreshold.Annotated
)
`alphaThreshold<-.Annotated,numeric` <- # nolint
function(object, value) {
assert(isAlpha(value))
metadata(object)[["alpha"]] <- value
validObject(object)
object
}
#' @rdname alphaThreshold
#' @export
setMethod(
f = "alphaThreshold<-",
signature = signature(
object = "Annotated",
value = "numeric"
),
definition = `alphaThreshold<-.Annotated,numeric`
)
You can’t perform that action at this time.