tleja

### original barp source code by Jim Lemon: plotrix R package v.3.5-2
### modified by T.Leja on 24-Jan-2014
### added ellipsis to allow greater control over rectFill parameters

barp2 <- function (height, width = 0.4, names.arg = NULL, legend.lab = NULL, 
    legend.pos = NULL, col = NULL, border = par("fg"), main = NULL, 
    xlab = "", ylab = "", xlim = NULL, ylim = NULL, x = NULL, 
    staxx = FALSE, staxy = FALSE, height.at = NULL, height.lab = NULL, 
    cex.axis = par("cex.axis"), pch = NULL, cylindrical = FALSE, 
    shadow = FALSE, do.first = NULL, ylog = FALSE, srt = NA, ...) 

tleja

## original R code $Id: heatmap.2.R 1724 2013-10-11 20:19:22Z warnes $
## updated by Thomas W. Leja: heatmap.3 2013-12-04
## Updates include: 
## 1. z-score data transformation prior to the clustering: scale=c("none","row","column")
## 2. option to reassign the extremes within the scaled data: zlim=c(-3,3)
## 3. option to switch off dendrogram reordering: reorder=FALSE

heatmap.3 <- function (x,

                       ## dendrogram control