initializeBioMatrixPlot(numOfGenes=1, numOfSamples=50)
showBioMatrixPlotLayout("Gene", paste("Sample", 1:50), "Diagnosis")
data(biomatrixPlotDemoData)
exprData <- biomatrixPlotDemoData$heatmapData[[1]]
exprData <- matrix(exprData[1, 1:50], nrow=1)
plotBioMatrixHeatmap(exprData, maxValue=3, minValue=-3)
Run the code above in your browser using DataLab