Included EBSeq for downstream differential expression analysis

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

diff --git a/EBSeq/R/f1.R b/EBSeq/R/f1.R
new file mode 100644 (file)
index 0000000..1f160a0
--- /dev/null
+++ b/EBSeq/R/f1.R
@@ -0,0 +1,10 @@
+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
+}
+