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

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

diff --git a/EBSeq/R/RankNorm.R b/EBSeq/R/RankNorm.R
deleted file mode 100644 (file)
index e3b0177..0000000
--- a/EBSeq/R/RankNorm.R
+++ /dev/null
@@ -1,11 +0,0 @@
-
-RankNorm=function(Data){
-       RankData=apply(Data, 2, rank)
-       SortData=apply(Data, 2, sort)
-       SortMean=rowMeans(SortData)
-       SortMean[SortMean==0]=1
-       NormMatrix=sapply(1:ncol(Data), function(i)Data[,i]/(SortMean[RankData[,i]]))
-       NormMatrix[NormMatrix==0]=1
-       NormMatrix
-       }
-