Commit 612be8f7 authored by Peter van 't Hof's avatar Peter van 't Hof
Browse files

Reverse colors on heatmap

parent 2945cb4a
...@@ -15,7 +15,7 @@ heat<- heat[,-1] ...@@ -15,7 +15,7 @@ heat<- heat[,-1]
heat<- as.matrix(heat) heat<- as.matrix(heat)
colNumber <- 50 colNumber <- 50
col <- colorRampPalette(brewer.pal(12, "Spectral"))(colNumber) col <- rev(colorRampPalette(brewer.pal(12, "Spectral"))(colNumber))
for (i in (colNumber+1):(colNumber+round((dist(range(heat)) - dist(range(heat[heat < 1]))) / dist(range(heat[heat < 1])) * 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] col[i] <- col[colNumber]
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment