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)
# set up values for expr-meth-cnv in that order
tailLRL <- c('left', 'right', 'left')
tibLRL <- copaIntE(expressionSet, tails=tailLRL)
Run the code above in your browser using DataLab