## Not run:
# data(ExampleData)
# data('_BC_GS')
#
# #Set up your phenotype
# phenotype <- rep(0, 69)
# phenotype[annot[, 3] == 'Event'] <- 1
# names(phenotype) <- rownames(annot)
#
# # set up values for expr-meth-cnv in that order
# tailLRL <- c('left', 'right', 'left')
#
# dataSet <- list(expr, meth, cnv)
#
# tibLRLcorr <- copaInt(dataSet, phenotype, tails=tailLRL, corr=TRUE)
# gsTibLRLcorr <- testGScogps(tibLRLcorr, pathGS)
# ## End(Not run)
Run the code above in your browser using DataLab