## Create a small fullCov object with data only for chr21
fullCov <- list('chr21' = genomeDataRaw)
## Coerce to a GRanges the first sample
gr <- createBwSample('ERR009101', fullCov = fullCov,
seqlengths = c('chr21' = 48129895))
## Explore the output
gr
Run the code above in your browser using DataLab