featureAlignedHeatmap(cvglists, feature.gr, upstream, downstream, zeroAt, n.tile=100, annoMcols=c(), sortBy=names(cvglists)[1], color=colorRampPalette(c("yellow", "red"))(50), lower.extreme, upper.extreme, margin=c(0.1, 0.01, 0.15, 0.1), gap=0.01, newpage=TRUE, gp=gpar(fontsize=10), ...)
cvglists <- list(A=RleList(chr1=Rle(sample.int(5000, 100),
sample.int(300, 100))),
B=RleList(chr1=Rle(sample.int(5000, 100),
sample.int(300, 100))))
feature.gr <- GRanges("chr1", IRanges(seq(1, 4900, 100), width=100))
feature.gr$anno <- rep(c("type1", "type2"), c(25, 24))
featureAlignedHeatmap(cvglists, feature.gr, zeroAt=50, annoMcols="anno")
Run the code above in your browser using DataLab