# NOT RUN {
if (require(pasillaBamSubset)) {
bamfile <- untreated1_chr4()
# define a region of interest
roi <- data.frame(seqnames = "chr4", start = 5e5, end = 7e5) %>%
as_granges()
# results in a grouped ranges object
rng <- read_bam(bamfile) %>%
filter_by_overlaps(roi) %>%
chop_by_gaps()
# to find ranges that have gaps use filter with `n()`
rng %>% filter(n() >= 2)
}
# }
Run the code above in your browser using DataLab