genes <- data.frame(chr = c("chr1", "chr3", "chr7", "chr22"),
start = seq(1000, 4000, 1000),
end = seq(1500, 4500, 1000),
strand = c('+', '-', '-', '+'))
featureBlocks(genes, 500, 500)
Run the code above in your browser using DataLab