Mercurial > repos > greg > ideas_genome_tracks
changeset 86:3e19f09ca68d draft
Uploaded
author | greg |
---|---|
date | Fri, 05 Jan 2018 13:54:44 -0500 |
parents | 9b43f5773db9 |
children | 60ce288eb52f |
files | create_heatmap.R |
diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/create_heatmap.R Fri Jan 05 08:28:51 2018 -0500 +++ b/create_heatmap.R Fri Jan 05 13:54:44 2018 -0500 @@ -74,9 +74,9 @@ if(regexpr("ctcf", tolower(histone_marks[i])) > 0) { histone_mark_color[i,] = c(200, 0, 250); } - state_color = get_state_color(data_matrix, histone_mark_color)[,2]; + state_color = get_state_color(data_matrix, histone_mark_color)[,]; } - 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); + 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]); palette(defpalette); if (!is.null(output_file_name)) { dev.off(); @@ -106,4 +106,4 @@ h = apply(h, 1, function(x){hsv(x[1], x[2], x[3])}); rt = cbind(rt, h); return(rt); -} +} \ No newline at end of file