df <- data.frame(chr = c("chr1", "chr3", "chr7", "chr22"),
start = seq(1000, 4000, 1000),
end = seq(1500, 4500, 1000),
t = c(3.11, 0.93, 2.28, -0.18),
gc = c("High", "High", "Low", "High"))
annoDF2GR(df)
Run the code above in your browser using DataLab