Mercurial > repos > greg > ideas_genome_tracks

comparison create_heatmap.R @ 86:3e19f09ca68d 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:54:44 -0500
parents cf0a62d084dc
children 3e9e8a7bcba6
comparison
equal deleted inserted replaced
85:9b43f5773db9 86:3e19f09ca68d
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);