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