### Load TranscriptionDataSet object
data(tds)
### Load reference annotations (knownGene from UCSC)
data(annot)
### Detect transcripts
detectTranscripts(object = tds, coverage.cutoff = 5, gap.dist = 4000,
estimate.params = TRUE, combine.by.annot = FALSE, annot = annot)
### View detected transcripts
trx <- getTranscripts(tds)
### Export to BED
# transcriptsToBed(object = trx, file = "transcripts.bed",
# strand.color = c("blue", "red"))
Run the code above in your browser using DataLab