Mercurial > repos > greg > ideas

changeset 144:8cd08d0aeb69 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Thu, 04 Jan 2018 14:45:16 -0500
parents 269e7e466b00
children 08e77c105188
files create_heatmap.R
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/create_heatmap.R	Wed Dec 20 13:01:10 2017 -0500
+++ b/create_heatmap.R	Thu Jan 04 14:45:16 2018 -0500
@@ -26,8 +26,8 @@
     plot(NA, NA, xlim=c(0, p+0.7), ylim=c(0, num_rows), xaxt="n", yaxt="n", xlab=NA, ylab=NA, frame.plot=F);
     axis(1, at=1:p-0.5, labels=colnames(data_matrix), las=2);
     axis(4, at=1:num_rows-0.5, labels=rownames(data_matrix), las=2);
-    color = round((t(data_matrix) - min_max_vector[1]) / (min_max_vector[2] - min_max_vector[1]) * 100);
-    rect(rep(1:p-1, num_rows), rep(1:num_rows-1, each=p), rep(1:p, num_rows), rep(1:num_rows, each=p), col=color);
+    col = round((t(data_matrix) - min_max_vector[1]) / (min_max_vector[2] - min_max_vector[1]) * 100);
+    rect(rep(1:p-1, num_rows), rep(1:num_rows-1, each=p), rep(1:p, num_rows), rep(1:num_rows, each=p), col=col);
     histone_mark_color = t(col2rgb(terrain.colors(ceiling(p))[1:p]));
 
     # Specify a color for common feature names like "h3k4me3".