Included EBSeq for downstream differential expression analysis

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

diff --git a/EBSeq/R/PlotTopCts.R b/EBSeq/R/PlotTopCts.R
new file mode 100644 (file)
index 0000000..cb502d0
--- /dev/null
+++ b/EBSeq/R/PlotTopCts.R
@@ -0,0 +1,8 @@
+PlotTopCts <-
+function(TopNum, FD, names)
+{
+    matplot(c(1:TopNum) , FD,type="l",xlab="Top DE selected", lwd=2, log="y", ylab="FD")
+    legend("topleft",col=1:TopNum, lwd=2, lty=1:TopNum, names)
+
+}
+