Mercurial > repos > idot > coverage_correlation

changeset 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 60bfca1da141
files corr.R mkCorr.sh
diffstat 2 files changed, 7 insertions(+), 3 deletions(-) [+]
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
--- a/mkCorr.sh	Sun Aug 18 09:42:48 2013 -0400
+++ b/mkCorr.sh	Sun Aug 18 16:56:56 2013 +0200
@@ -4,7 +4,9 @@
 #echo "running corr"
 #echo $PWD
 
-
+module () {
+   eval `/usr/bin/modulecmd bash $*`
+}
 
 if [ -f /biosw/modules/init/modules-env.sh ]; then
 	module load R/3.0.0