data(ExampleData)
data('KEGG_BC_GS')
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)
# set up values for for the tails in the order that they are exported, for example:
tailLRL <- c('left', 'right', 'left')
outTibLRL <- outCallTibE(expressionSet, names=c('Expr', 'Meth', 'CNV'), tail=tailLRL)
Run the code above in your browser using DataLab