diff corr.R @ 9:ecad2cd5038f

debug message was making truble
author Ido Tamir <ido.tamir@imp.ac.at>
date Sun, 18 Aug 2013 18:03:53 +0200
parents fcf85568a102
children 74bfa2464411
line wrap: on
line diff
--- a/corr.R	Sun Aug 18 17:55:44 2013 +0200
+++ b/corr.R	Sun Aug 18 18:03:53 2013 +0200
@@ -30,7 +30,7 @@
 
 ## adds mappable regions as 0 coverage to track 
 covWith0 <- function(cov, mappable){
-    print(paste("cov:",cov))
+    print(paste("cov:", summary(cov)))
 	c0 <- setdiff(mappable, cov)
     cus <- if(length(c0) > 0){
 	  elementMetadata(c0)$score <- 0
@@ -125,7 +125,7 @@
 }
 
 getMappable <- function(coverages, mappable){
-    print(paste("creating mappability", mappable))
+    print(paste("creating mappability", length(coverages), mappable))
 	if(is.na(mappable)){
 	    createMappable(coverages)
     }else{