initializeBioMatrixPlot(numOfGenes=1, numOfSamples=50)
showBioMatrixPlotLayout("Gene", paste("Sample", 1:50), "Diagnosis")
sampleColor <- c(rep("blue", 25), rep("red", 25))
plotBioMatrixSampleData(rowNumber=1, sampleColor, areaName="phenotype")
Run the code above in your browser using DataLab