require(TxDb.Mmusculus.UCSC.mm9.knownGene)
txdb <- TxDb.Mmusculus.UCSC.mm9.knownGene
gr <- GRanges(Rle(c('chr1','chr1')),
ranges=IRanges(start=c(100,200), end=c(150,250)))
GRannotateSimple(gr, txdb)
Run the code above in your browser using DataLab