R/ExpressionSet-methods.R

In jdstorey/edge: Extraction of Differential Gene Expression

setAs("ExpressionSet", "deSet", function(from, to) updateOldExpSet(from, "deSet"))

updateOldExpSet <- function(from, toClass, ...) {  # to deSet
  # new object
  object <- new(toClass,
                assayData = from@assayData,
                phenoData = from@phenoData,
                featureData = annotatedDataFrameFrom(from@assayData,
                                                     byrow  = TRUE),
                experimentData = from@experimentData,
                annotation = from@annotation)
  validObject(object)
  object
}
#' @rdname deSet
setMethod("deSet",
          signature = signature(object = "ExpressionSet"),
          function(object,
                   full.model,
                   null.model,
                   individual = NULL) {
            deObj <- as(object, "deSet")
            # Input checks
            if (!is.null(individual)) {
              if (length(individual) != ncol(exprs(object))) {
                stop("ind must be the same length as the number of arrays")
              }
            }
            if (missing(full.model) || missing(null.model)) {
              stop("provide both full and null models")
            }
            createSet(deObj,
                      nMod = null.model,
                      fMod= full.model,
                      ind = individual)
          })