initializeBioMatrixPlot(numOfGenes=1, numOfSamples=50)
showBioMatrixPlotLayout("Gene", paste("Sample", 1:50), "Diagnosis")
barData <- matrix(c(rep(0.25, 15), rep(0.75, 20), rep(0.5, 15)), nrow=1)
plotBioMatrixBars(barData, barColor="red")
Run the code above in your browser using DataLab