initializeBioMatrixPlot(numOfGenes=1, numOfSamples=50)
setBioMatrixPlotArea()
sampleNames <- paste("Sample", 1:50)
sampleColors <- c(rep("red", 30), rep("blue", 30))
plotBioMatrixSampleData(1, areaName="phenotype", fillColor = sampleColors)
plotBioMatrixSampleNames(sampleNames, sampleColors)
Run the code above in your browser using DataLab