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))
featureAlignedDistribution(cvglists, feature.gr, zeroAt=50, type="l")
Run the code above in your browser using DataLab