## Obtain fullCov object
fullCov <- list('21'=genomeDataRaw$coverage)
## Use only the first two exons
smallGenomicState <- genomicState
smallGenomicState$fullGenome <- smallGenomicState$fullGenome[
which(smallGenomicState$fullGenome$theRegion == 'exon')[1:2] ]
## Finally, get the coverage information for each exon
exonCov <- coverageToExon(fullCov=fullCov,
genomicState=smallGenomicState$fullGenome, L=36)
Run the code above in your browser using DataLab