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

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

diff --git a/EBSeq/R/crit_fun.R b/EBSeq/R/crit_fun.R
deleted file mode 100644 (file)
index e68ed4b..0000000
--- a/EBSeq/R/crit_fun.R
+++ /dev/null
@@ -1,15 +0,0 @@
-crit_fun<-function (PPEE, thre) 
-{
-    y <- cumsum(sort(PPEE))/(1:length(PPEE))
-    mm <- y < thre
-    index <- sum(mm)
-    if (index > 0) {
-        out <- 1 - sort(PPEE)[index]
-           }           
-    if (index == 0) {
-                       out <- 1
-                                   }
-    names(out) <- NULL
-    return(out)
-}
-