gr1 <- GRanges(Rle(c('chr1','chr1')),
ranges=IRanges(start=c(100,200), end=c(150,250)), pvalue=c(200, 100))
gr2 <- GRanges(Rle(c('chr1','chr1')),
ranges=IRanges(start=c(80,400), end=c(300,500)), pvalue=c(50, 150))
unionMaxScore(gr1, gr2)
Run the code above in your browser using DataLab