Modifications to the R function heatmap.2 {gplots}