simple_grange.R

   1 library("GenomicRanges")
   2 simple.grange <- function(chr,start,end) {
   3     return(GRanges(seqnames=Rle(paste0("chr",gsub("^chr","",as.character(chr))),
   4                        rep(1,length(chr))),
   5                    ranges=IRanges(start=start,
   6                        end=end)))
   7 }