Skip to content

Instantly share code, notes, and snippets.

@decodebiology

decodebiology/heatmap_ChIP-seq_3.r

Forked from crazyhottommy/heatmap_ChIP-seq_3.r
Last active August 29, 2015 14:20
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save decodebiology/adea937c03d796e137d0 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save decodebiology/adea937c03d796e137d0 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