Skip to content

Instantly share code, notes, and snippets.

@crazyhottommy

crazyhottommy/heatmap_ChIP-seq_3.r

Created May 5, 2015 14:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 2 You must be signed in to fork a gist
  • Save crazyhottommy/56576e633bfc888937c3 to your computer and use it in GitHub Desktop.
Save crazyhottommy/56576e633bfc888937c3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
heatmap_ChIP-seq_3.r
m.row.sum<- cbind(m1, rowSums(m1))
o1<- rev(order(m.row.sum[,602]))
m.row.sum<- m.row.sum[o1,]
bk = unique(c(seq(-0.1,3, length=100),seq(3,10.35,length=100)))
hmcols<- colorRampPalette(c("white","red"))(length(bk)-1)
pheatmap( m.row.sum[,1:601], cluster_rows = F, cluster_cols = F, col= hmcols, breaks = bk, legend=FALSE, show_rownames=FALSE, show_colnames=FALSE)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment