1. chromstaR
  2. Commit 1a61c19d75ce29811da956fb93c0cf0d740c6662
Browse code

fixed bug in scores

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/chromstaR@126476 bc3139a8-67e5-0310-9ffc-ced21a209358

Aaron Taudt authored on 06/02/2017 10:40:45
Showing 1 changed files
R/scores.R
History View file @ 1a61c19
... ... 
@@ -29,7 +29,7 @@ differentialScoreSum <- function(mat, info, FUN='-') {
29 29 
         return(NULL)
30 30 
     }
31 31 
     differential.scores <- differentialScores(mat, info, FUN)
32 
-    differential.score <- do.call(sum, differential.scores)
32 
+    differential.score <- do.call('+', differential.scores)
33 33 
     return(differential.score)
34 34 
 }
35 35