data(sampleDemoData)
data(RNA2miRNA)
data(RNASeqDemoData)
data(miRNADemoData)
data(methylDemoData)
data(CNVDemoData)
sampleNames <- as.character(sampleDemoData[,1])
geneNames <- as.character(RNA2miRNA[,1])
secondGeneNames <- as.character(RNA2miRNA[,2])
normals <- grep("Normal", colnames(RNASeqDemoData))
tumors <- grep("Tumor", colnames(RNASeqDemoData))
tumorExpr <- RNASeqDemoData[, tumors]
normalExpr <- RNASeqDemoData[, normals]
meanLog2Fold <- log2(rowMeans(tumorExpr/normalExpr))
summaryData <- data.frame(geneNames, meanLog2Fold)
plotData <- getPlotDataSet(sampleNames, geneNames, sampleDemoData,
heatmapData=list(RNASeqDemoData, miRNADemoData),
categoryData=list(methylDemoData),
binaryData=list(CNVDemoData),
summaryData=list(summaryData),
secondGeneNames)
Run the code above in your browser using DataLab