# NOT RUN {
query <- data.frame(start = c(5,10, 15,20), width = 5, gc = runif(4)) %>%
as_iranges()
subject <- data.frame(start = 2:6, width = 3:7, label = letters[1:5]) %>%
as_iranges()
query %>% mutate(n_olap = count_overlaps(., subject),
n_olap_within = count_overlaps_within(., subject))
# }
Run the code above in your browser using DataLab