changed output format to contain FPKM etc. ; fixed a bug for paired-end reads

[rsem.git] / EBSeq / R / MedianNorm.R

diff --git a/EBSeq/R/MedianNorm.R b/EBSeq/R/MedianNorm.R
deleted file mode 100644 (file)
index 44c0a4a..0000000
--- a/EBSeq/R/MedianNorm.R
+++ /dev/null
@@ -1,5 +0,0 @@
-MedianNorm=function(Data){
-
-    geomeans <- exp(rowMeans(log(Data)))
-       apply(Data, 2, function(cnts) median((cnts/geomeans)[geomeans >  0]))
-}