Included EBSeq for downstream differential expression analysis

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

diff --git a/EBSeq/R/GetPP.R b/EBSeq/R/GetPP.R
new file mode 100644 (file)
index 0000000..0c1eeb9
--- /dev/null
+++ b/EBSeq/R/GetPP.R
@@ -0,0 +1,4 @@
+GetPP <- function(EBout){
+       #PP=c(EBout[[5]], EBout[[6]])
+       PP=EBout$PPDE   
+}