A <- matrix(round(runif(80)), ncol=4, byrow=TRUE)
dimnames(A)=list(letters[seq(nrow(A))],
as.character(as.roman(seq(ncol(A)))))
show(A)
plotBM(A, reorder=FALSE)
plotBM(A, reorder=TRUE)
Run the code above in your browser using DataLab