set.seed(1)
chr <- rep(c('chr1','chr2'),each=10)
chrLength <- c(chr1=10000,chr2=5000)
st <- c(runif(10,1,10000),runif(10,1,5000))
regions <- RangedData(IRanges(st,st+50),space=chr)
plotChrRegions(regions,chrLength=chrLength)
Run the code above in your browser using DataLab