EBSeq/R/GetMultiPP.R

   1 GetMultiPP <- function(EBout){
   2         PP=EBout$PPDE
   3         MAP=colnames(EBout$f)[apply(EBout$f,1,which.max)]
   4         AllParti=EBout$AllParti
   5         out=list(PP=PP, MAP=MAP,Patterns=AllParti)
   6 }