R/makeExprSet.R

Defines functions makeExprSet

Documented in makeExprSet

makeExprSet <-
function(exprdat,phenodat,anno="custom")
  {
    if(ncol(exprdat)==nrow(phenodat))
      {
        colnames(exprdat)=rownames(phenodat)
        datobj=new("ExpressionSet",exprs=as.matrix(exprdat))
        pData(datobj)=phenodat
        annotation(datobj)=anno
      }
    else
      {
        print("Number of samples of the expression and phenotype data sets do not match")
        datobj=NULL
      }
    return(datobj)
  }

Try the permGPU package in your browser

Any scripts or data that you put into this service are public.

permGPU documentation built on Feb. 10, 2021, 5:07 p.m.