Mercurial > repos > greg > ideas

comparison create_heatmap.R @ 146:9e0b4ceba74a draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Fri, 05 Jan 2018 13:55:05 -0500
parents 8cd08d0aeb69
children 387b460ddd43
comparison
equal deleted inserted replaced
145:08e77c105188 146:9e0b4ceba74a
72 histone_mark_color[i,] = c(50, 200, 50); 72 histone_mark_color[i,] = c(50, 200, 50);
73 } 73 }
74 if(regexpr("ctcf", tolower(histone_marks[i])) > 0) { 74 if(regexpr("ctcf", tolower(histone_marks[i])) > 0) {
75 histone_mark_color[i,] = c(200, 0, 250); 75 histone_mark_color[i,] = c(200, 0, 250);
76 } 76 }
77 state_color = get_state_color(data_matrix, histone_mark_color)[,2]; 77 state_color = get_state_color(data_matrix, histone_mark_color)[,];
78 } 78 }
79 rect(rep(p+0.2, num_rows), 1:num_rows-0.8, rep(p+0.8, num_rows), 1:num_rows-0.2, col=state_color); 79 rect(rep(p+0.2, num_rows), 1:num_rows-0.8, rep(p+0.8, num_rows), 1:num_rows-0.2, col=state_color[,2]);
80 palette(defpalette); 80 palette(defpalette);
81 if (!is.null(output_file_name)) { 81 if (!is.null(output_file_name)) {
82 dev.off(); 82 dev.off();
83 } 83 }
84 return(state_color); 84 return(state_color);