EBSeq/R/f1.R

   1 f1 <-
   2 function(Input1, Input2, AlphaIn, BetaIn, EmpiricalRSP1,EmpiricalRSP2,NumOfGroup, log){
   3         F0.1=f0(Input1, AlphaIn, BetaIn, EmpiricalRSP1, NumOfGroup, log=log)
   4         F0.2=f0(Input2, AlphaIn, BetaIn, EmpiricalRSP2, NumOfGroup, log=log)
   5
   6         if (log==F) Result=F0.1*F0.2
   7         if (log==T) Result=F0.1+F0.2
   8         Result
   9 }
  10