From a4a4697f79159d90fe45f241d9a372e93856824a Mon Sep 17 00:00:00 2001
From: Peter van 't Hof <p.j.van_t_hof@lumc.nl>
Date: Thu, 5 Feb 2015 10:13:40 +0100
Subject: [PATCH] Fix warning on max color
---
.../src/main/resources/nl/lumc/sasc/biopet/tools/plotHeatmap.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/public/biopet-framework/src/main/resources/nl/lumc/sasc/biopet/tools/plotHeatmap.R b/public/biopet-framework/src/main/resources/nl/lumc/sasc/biopet/tools/plotHeatmap.R
index 95e6d5ace..7f7237e90 100644
--- a/public/biopet-framework/src/main/resources/nl/lumc/sasc/biopet/tools/plotHeatmap.R
+++ b/public/biopet-framework/src/main/resources/nl/lumc/sasc/biopet/tools/plotHeatmap.R
@@ -15,7 +15,7 @@ heat<- heat[,-1]
heat<- as.matrix(heat)
colNumber <- 50
-col <- rev(colorRampPalette(brewer.pal(12, "Spectral"))(colNumber))
+col <- rev(colorRampPalette(brewer.pal(11, "Spectral"))(colNumber))
for (i in (colNumber+1):(colNumber+round((dist(range(heat)) - dist(range(heat[heat < 1]))) / dist(range(heat[heat < 1])) * colNumber))) {
col[i] <- col[colNumber]
}
--
GitLab