removed ugly brackets in score printing, fixes #10

estebanpw · Oct 2, 2020 · b505884 · b505884
1 parent b6a13b8
commit b505884
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/bin/compute_score-nogrid.R b/bin/compute_score-nogrid.R
@@ -436,7 +436,8 @@ for(i in 5:len_i){
 
 
 score <- (score/(len_i^2))
-print(score)
+#print(score)
+cat(score, "\n")
 
 
 sampling_value <- 5
@@ -461,7 +462,7 @@ png(paste(path_mat, ".filt.png", sep=""), width = length(data[,1]), height = len
 image(t(final_image), col = grey(seq(1, 0, length = 256)), xaxt='n', yaxt='n', main = paste(fancy_name, paste("filt. score=", score)), xlab = name_x, ylab = name_y, axes = FALSE)
 axis(1, tick = TRUE, labels = (coords1), at = c(0.0, 0.2, 0.4, 0.6, 0.8, 1))
 axis(2, tick = TRUE, labels = rev(coords2), at = c(0.0, 0.2, 0.4, 0.6, 0.8, 1))
-dev.off()
+tmp <- dev.off()
 
 
 # Output pixel coordinates of highly conserved signals

diff --git a/bin/compute_score.R b/bin/compute_score.R
@@ -465,7 +465,8 @@ for(i in 5:len_i){
 
 
 score <- (score/(len_i^2))
-print(score)
+#print(score)
+cat(score, "\n")
 
 
 sampling_value <- 5
@@ -523,7 +524,7 @@ for (y_tick in seq_y_percentages)
   abline(h = y_tick, lty = 'dotted')
 }
 
-dev.off()
+tmp <- dev.off()
 
 
 # Output pixel coordinates of highly conserved signals