platformMerging: x

In bhaibeka/MetaGx0: R package for meta-analysis of breast cancer gene expressions

Usage

platformMerging(esets)

Arguments

esets

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (esets) 
{
    if (class(esets) == "ExpressionSet") {
        return(esets)
    }
    if (is.list(esets)) {
        esets.check <- sapply(esets, function(x) {
            return(class(x) == "ExpressionSet")
        })
        if (any(!esets.check)) {
            stop("Some esets in the list are not ExpressionSet")
        }
        if (length(esets) == 1) {
            eset <- esets[[1]]
        }
        else {
            for (j in 2:length(esets)) {
                Biobase::exprs(eset) <- rbind(Biobase::exprs(eset), 
                  Biobase::exprs(esets[[j]]))
                Biobase::featureData(eset)@data <- rbind(Biobase::featureData(eset)@data, 
                  Biobase::featureData(esets[[j]])@data)
            }
            duplix <- duplicated(as.character(Biobase::featureData(eset)@data[, 
                "ENTREZID"]))
            Biobase::exprs(eset) <- Biobase::exprs(eset)[!duplix, 
                , drop = FALSE]
        }
        return(eset)
    }
  }

bhaibeka/MetaGx0 documentation built on May 12, 2019, 8:22 p.m.