### Load TranscriptionDataSet object
data(tds)
### Load reference annotations (knownGene from UCSC)
data(annot)
### Estimate gap distance minimazing error rate
### Define the range of gap distances to test
gdr <- seq(from = 0, to = 10000, by = 1000)
estimateGapDistance(object = tds, annot = annot, coverage.cutoff = 5,
filter.annot = FALSE, gap.dist.range = gdr)
plotErrorRate(object = tds, lwd = 2)
Run the code above in your browser using DataLab