data(ExampleData)
#set up dataSet
dataSet <- list(expr, meth,cnv)
# Set up Phenotype
phenotype <- pheno
names(phenotype) <- colnames(cnv)
# set up values for expr-meth-cnv in that order
tailLRL <- c('left', 'right', 'left')
outRankLRL <- outCallRank(dataSet, phenotype, names=c('Expr',
'Meth', 'CNV'), tail=tailLRL)
Run the code above in your browser using DataLab