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

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

diff --git a/EBSeq/R/GetMultiPP.R b/EBSeq/R/GetMultiPP.R
deleted file mode 100644 (file)
index 4ae2882..0000000
--- a/EBSeq/R/GetMultiPP.R
+++ /dev/null
@@ -1,6 +0,0 @@
-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)
-}