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

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

diff --git a/EBSeq/R/f1.R b/EBSeq/R/f1.R
deleted file mode 100644 (file)
index 1f160a0..0000000
--- a/EBSeq/R/f1.R
+++ /dev/null
@@ -1,10 +0,0 @@
-f1 <-
-function(Input1, Input2, AlphaIn, BetaIn, EmpiricalRSP1,EmpiricalRSP2,NumOfGroup, log){
-       F0.1=f0(Input1, AlphaIn, BetaIn, EmpiricalRSP1, NumOfGroup, log=log)
-       F0.2=f0(Input2, AlphaIn, BetaIn, EmpiricalRSP2, NumOfGroup, log=log)
-       
-       if (log==F) Result=F0.1*F0.2
-       if (log==T) Result=F0.1+F0.2
-       Result
-}
-