data(RNASeqDemoData)
exprValue <- as.matrix(RNASeqDemoData[, 2:ncol(RNASeqDemoData)])
summaryData <- data.frame(as.character(RNASeqDemoData[,1]),
rowMeans(exprValue), log2(rowMeans(exprValue)))
geneSymbols <- c("ECM1", "SLC26A6", "ADAMTS13", "FCN3", "CFP")
sumByGene <- getPlotSummaryData(summaryData, geneNames=geneSymbols)
summaryData <- rbind(colMeans(exprValue), log2(colMeans(exprValue)))
summaryData <- data.frame(c("sampleMean", "log2mean"), summaryData)
colnames(summaryData) <- colnames(exprValue)
sampleID <- colnames(exprValue)[c(2:21, 32:41)]
sumBySample <- getPlotSummaryData(summaryData, sampleID)
Run the code above in your browser using DataLab