peaks1 <- GRanges(seqnames=c(6,6,6,6,5),
IRanges(start=c(1543200,1557200,1563000,1569800,167889600),
end=c(1555199,1560599,1565199,1573799,167893599),
names=c("p1","p2","p3","p4","p5")),
strand="+")
peaks2 <- GRanges(seqnames=c(6,6,6,6,5),
IRanges(start=c(1549800,1554400,1565000,1569400,167888600),
end=c(1550599,1560799,1565399,1571199,167888999),
names=c("f1","f2","f3","f4","f5")),
strand="+")
t1 <- findOverlapsOfPeaks(peaks1, peaks2, maxgap=1000)
makeVennDiagram(t1)
t1$venn_cnt
t1$peaklist
Run the code above in your browser using DataLab