Included EBSeq for downstream differential expression analysis

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

diff --git a/EBSeq/R/PlotFDTP.R b/EBSeq/R/PlotFDTP.R
new file mode 100644 (file)
index 0000000..ce029a3
--- /dev/null
+++ b/EBSeq/R/PlotFDTP.R
@@ -0,0 +1,10 @@
+PlotFDTP <-
+function(TopNum, FDR, TPR,names)
+{
+  
+  matplot(FDR, TPR, xlim=c(0,.5), ylim=c(0,1) ,type="l",lwd=2,xlab="FDR", ylab="TPR")
+    legend("bottomright",col=1:TopNum, lwd=2, lty=1:TopNum, names)
+
+
+}
+