Included EBSeq for downstream differential expression analysis

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

diff --git a/EBSeq/R/PlotPattern.R b/EBSeq/R/PlotPattern.R
new file mode 100644 (file)
index 0000000..61f93af
--- /dev/null
+++ b/EBSeq/R/PlotPattern.R
@@ -0,0 +1,7 @@
+PlotPattern<-function(Patterns){
+       par(oma=c(3,3,3,3))
+       PatternCol=rainbow(ncol(Patterns))
+       heatmap(Patterns,col=PatternCol,Colv=NA,Rowv=NA,scale="none")
+
+}
+