heatmap

data<-read.csv("/Bioinformatics/NGS_analyses/automated/RNA-Seq/Differential_Expression/20150905_DE_Analysis_ShinnyCho/comparison_1/NM_Vs_N_Filtered_Heatmap.csv",header=TRUE, row.names=1)

head(data)
data_matrix<-data.matrix(data)
head(data_matrix)
library("gplots")
library("RColorBrewer")


pdf("/Bioinformatics/NGS_analyses/automated/RNA-Seq/Differential_Expression/20150905_DE_Analysis_ShinnyCho/comparison_1/NM_Vs_N_Filtered_Heatmap.pdf")
heatmap.2(data_matrix, col=brewer.pal(11,"RdBu"),scale="row",trace="none")
dev.off()

data<-read.csv("/Bioinformatics/NGS_analyses/automated/RNA-Seq/Differential_Expression/20150905_DE_Analysis_ShinnyCho/comparison_1/NM_Vs_N_All_Heatmap.csv",header=TRUE, row.names=1)

head(data)
data_matrix<-data.matrix(data)
head(data_matrix)
library("gplots")
library("RColorBrewer")


pdf("/Bioinformatics/NGS_analyses/automated/RNA-Seq/Differential_Expression/20150905_DE_Analysis_ShinnyCho/comparison_1/NM_Vs_N_All_Heatmap.pdf")
heatmap.2(data_matrix, col=brewer.pal(11,"RdBu"),scale="row",trace="none")
dev.off()