## Collapse the coverage information
collapsedFull <- collapseFullCoverage(list(genomeData$coverage),
verbose=TRUE)
## Calculate library size adjustments
sampleDepths <- sampleDepth(collapsedFull, probs=c(0.5, 1), verbose=TRUE)
sampleDepths
Run the code above in your browser using DataLab