Mercurial > repos > idot > coverage_correlation

diff corr.R @ 3:7bdd29cdfed8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more debug messages
author Ido Tamir <ido.tamir@imp.ac.at>
date Sun, 18 Aug 2013 16:56:56 +0200
parents 1eb46757d8bb
children fcf85568a102
line wrap: on
line diff
--- a/corr.R	Sun Aug 18 09:42:48 2013 -0400
+++ b/corr.R	Sun Aug 18 16:56:56 2013 +0200
@@ -30,7 +30,8 @@
 
 ## adds mappable regions as 0 coverage to track 
 covWith0 <- function(cov, mappable){
-    c0 <- setdiff(mappable, cov)
+    print(paste("cov:",cov))
+	c0 <- setdiff(mappable, cov)
     cus <- if(length(c0) > 0){
 	  elementMetadata(c0)$score <- 0
       sort(c(c0, cov))
@@ -49,7 +50,8 @@
 
 ## correlation dist
 corrDist <- function(covRles, outnames){
-    vl <- length(covRles)
+    print("calculating correlation")
+	vl <- length(covRles)
     v <- 1:vl
     o <- matrix(NA,vl,vl)
     colnames(o) <- outnames