## Obtain fullCov object
fullCov <- list('21'=genomeDataRaw$coverage)
## Assign chr lengths using hg19 information, use only first two regions
library('GenomicRanges')
data(hg19Ideogram, package = 'biovizBase', envir = environment())
regions <- genomeRegions$regions[1:2]
seqlengths(regions) <- seqlengths(hg19Ideogram)[names(seqlengths(regions))]
## Finally, get the region coverage
regionCov <- getRegionCoverage(fullCov=fullCov, regions=regions)
Run the code above in your browser using DataLab