Included EBSeq for downstream differential expression analysis

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

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