## an example of a RangedData annotation
gAnnot <- RangedData(
IRanges(
start=c(10,30,100),
end=c(21,53,123)),
space=c("chr01","chr01","chr02"),
strand=c("+","+","-"),
transcripts=c("trA1","trA2","trB"),
gene=c("gA","gA","gB"),
exon=c("e1","e2","e3"),
universe = "Hs19"
)
## an example of a GRangesList annotation
grngs <- as(gAnnot,"GRanges")
## accessing the colnames
colnames(grngs)
## creating a GRangesList
grngsList<-split(grngs,seqnames(grngs))
## accessing the colnames
colnames(grngsList)
## For unsafeAppend
library(GenomicAlignments)
unsafeAppend(GAlignments(),GAlignments())
Run the code above in your browser using DataLab