Included EBSeq for downstream differential expression analysis

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

PlotPattern<-function(Patterns){
        par(oma=c(3,3,3,3))
        PatternCol=rainbow(ncol(Patterns))
        heatmap(Patterns,col=PatternCol,Colv=NA,Rowv=NA,scale="none")

}