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