gr1 <-
GRanges(seqnames = "chr2", ranges = IRanges(3000, 6000),
strand = "+", score = 5L, GC = 0.45)
gr2 <-
GRanges(seqnames = c("chr1", "chr1"),
ranges = IRanges(c(7000,13000), width = 3),
strand = c("+"), score = 3:4, GC = c(0.3, 0.5))
grl <- GRangesList("gr1" = gr1, "gr2" = gr2)
promoter <- getNeighborhood(grl,5)
promoter
promoter_GRanges <- unlist(promoter)
promoter_GRanges
Run the code above in your browser using DataLab