data(ExampleData)
data('KEGG_BC_GS')
# Set up Phenotype
phenotype <- pheno
names(phenotype) <- colnames(cnv)
#set up datalist
dataSet <- list(expr,meth,cnv)
# set up values for expr-meth-cnv in that order
tailLRL <- c('left', 'right', 'left')
outTibLRL <- outCallTib(dataSet, phenotype=pheno,
names=c('Expr', 'Meth', 'CNV'), tail=tailLRL)
# put in your pathways here
pdgfB <- pathGS$'BIOCARTA_PDGF_PATHWAY'
outMap(outTibLRL, pdgfB, hmName='BC_PDGF_TIB.pdf', plotName='PDGF
Outlier T-H LRL Calls')
Run the code above in your browser using DataLab