R/neweS.R

In LMGene: LMGene Software for Data Transformation and Identification of Differentially Expressed Genes in Gene Expression Arrays

# Converts a data matrix into an ExpressionSet object.
neweS <-
function(mat, vlist, vlabel=as.list(names(vlist))) {
  names(vlabel) <- names(vlist)

  for (i in 1:length(vlist)) {
    names(vlist[[i]]) <- colnames(mat)
  }

  pdata <- new("AnnotatedDataFrame")
  pData(pdata) <- as.data.frame(vlist)
  varLabels(pdata) <- vlabel
  eset <- new("ExpressionSet", exprs=as.matrix(mat), phenoData=pdata)
  return(eset)
}