R/AllMethod.R

In tangchao7498/ICAS:

#' show method for ICASDataSet
#'
#' @param object A ICASDataSet object
#' @name counts
#' @aliases show
#' @docType methods
#' @rdname methods
#' @importFrom SummarizedExperiment assay
#'

setMethod(f = "counts",
          signature = "ICASDataSet",
          definition = function(object) {
            SummarizedExperiment::assays(object)[[1]]
          })


#' @rdname methods
#' @name psi
#' @export
setMethod("psi", "ICASDataSet",
          function(object) {
            object@psi
          })

#' @rdname methods
#' @exportMethod "psi<-"
setReplaceMethod("psi", "ICASDataSet", function(object, value) {
  object@psi <- value
  validObject(object)
  object
})