data(ExampleData)
library(Biobase)
# building the Annotated Data Frame
phenoData <- AnnotatedDataFrame(
data.frame(
type = factor(x = pheno, labels = c("Control", "Case")),
row.names = colnames(expr)
)
)
# build environment
inputData <- list2env(list(exprs = expr, meth = meth, cnv = cnv))
# build expressionSet - other information can be added here
expressionSet <- ExpressionSet(inputData, phenoData)
# retrieve phenotype data
phenotype <- expressionSetPheno(expressionSet)
Run the code above in your browser using DataLab