Eliminate the rescale factor -- heatmap automatically normalizes the data

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@2845 348d0f76-0448-11de-a6fe-93d51630548a
This commit is contained in:
chartl 2010-02-16 16:34:33 +00:00
parent 0e4b5ad9c6
commit f02e94ab6f
1 changed files with 2 additions and 2 deletions

View File

@ -71,7 +71,7 @@ if ( functionToRun == "PlotHeatmap" ) {
# Note that the rows and columns don't line up. R understands this
# and deals with it.
# Also expects an argument string:
# row_label;column_label;data_rescale_factor;plot_title;base_name_for_pdf
# row_label;column_label;plot_title;base_name_for_pdf
# - end of info -
### PLOT HEATMAP FUNCTION ###
PlotHeatmap <- function(inFile,args) {
@ -81,7 +81,7 @@ PlotHeatmap <- function(inFile,args) {
data_rescale_factor <- as.numeric(arglist[3])
plot_title = arglist[4]
base_name_for_pdf = arglist[5]
image_matrix <- data_rescale_factor*as.matrix(read.table(inFile))
image_matrix <- as.matrix(read.table(inFile))
## change default colors to include "cool" colors for lower end of spectrum
## e.g. red ~ near 1, yellow ~ near .75, green ~ near .5, teal ~ near .25
## blue ~ near 0