X-Git-Url: https://git.donarmstrong.com/?p=rsem.git;a=blobdiff_plain;f=EBSeq%2FR%2FGetMultiPP.R;fp=EBSeq%2FR%2FGetMultiPP.R;h=4ae2882f79ad48f950154c8b61180c3318be859e;hp=0000000000000000000000000000000000000000;hb=4496388fd52d4354c746f36b1998477f31c2b0dd;hpb=9210a5fece7ec2854eb834d5b2dcbe2d12fbebf1

diff --git a/EBSeq/R/GetMultiPP.R b/EBSeq/R/GetMultiPP.R
new file mode 100644
index 0000000..4ae2882
--- /dev/null
+++ b/EBSeq/R/GetMultiPP.R
@@ -0,0 +1,6 @@
+GetMultiPP <- function(EBout){
+	PP=EBout$PPDE	
+	MAP=colnames(EBout$f)[apply(EBout$f,1,which.max)]
+	AllParti=EBout$AllParti
+	out=list(PP=PP, MAP=MAP,Patterns=AllParti)
+}