initializeBioMatrixPlot(numOfGenes=1, numOfSamples=50)
showBioMatrixPlotLayout("Gene", paste("Sample", 1:50), "Diagnosis")
binaryData <- matrix(c(rep(1, 15), rep(0, 20), rep(1, 15)), nrow=1)
plotBioMatrixBinaryData(binaryData, scatterType=16)
Run the code above in your browser using DataLab