# HG changeset patch
# User Ido Tamir <ido.tamir@imp.ac.at>
# Date 1376841833 -7200
# Node ID ecad2cd5038fc1d49c6e60fa94edcae592b27438
# Parent  44920cae2f4da9a92374727a8687393af6cc44e4
debug message was making truble

diff -r 44920cae2f4d -r ecad2cd5038f corr.R
--- 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{