require(GenomicRanges)
chrs <- c("chr1", "chr3", "chr7", "chr22")
starts <- seq(1000, 4000, 1000)
ends <- seq(1500, 4500, 1000)
t <- c(3.11, 0.93, 2.28, -0.18)
gc <- c("High", "High", "Low", "High")
gr <- GRanges(chrs, IRanges(starts, ends), strand = '*', t, gc)
annoGR2DF(gr)
Run the code above in your browser using DataLab