library(GenomicRanges)
first <- GRanges(seqnames=c("chr1", "chr1", "chr2", "chr3"),
ranges=IRanges(start=c(1, 20, 2, 3),
end=c(10, 25, 10, 10)),
strand="+")
last <- GRanges(seqnames=c("chr1", "chr10", "chr10", "chr20"),
ranges=IRanges(start=c(1, 25, 50, 5),
end=c(8, 40, 55, 16)),
strand="+")
namesGRangePairs <- c("a","b","c","d")
grangesPairs1 <- GRangePairs(first, last, names=namesGRangePairs)
grangesPairs2 <- GRangePairs(first, last)
## getters
names(grangesPairs1)
length(grangesPairs1)
first(grangesPairs1)
last(grangesPairs1)
seqnames(grangesPairs1)
strand(grangesPairs1)
seqinfo(grangesPairs1)
## setters
names(grangesPairs2) <- namesGRangePairs
## Vector methods
grangesPairs1[1]
## List methods
grangesPairs1[[1]]
unlist(grangesPairs1)
## Coersion
grglist(grangesPairs1)
as(grangesPairs1, "GRangesList")
as(grangesPairs1, "GRanges")
as(grangesPairs1, "DataFrame")
as.data.frame(grangesPairs1)
## Combining
c(grangesPairs1, grangesPairs2)
Run the code above in your browser using DataLab