## Create a small fullCov object with data only for chr21
fullCov <- list('chr21' = genomeDataRaw)
## Create a BigWig for the first sample in a test directory
dir.create('createBwSample-example')
bw <- createBwSample('ERR009101', 'createBwSample-example',
fullCov = fullCov, seqlengths = c('chr21' = 48129895))
## Explore the output
bw
Run the code above in your browser using DataLab