## Not run:
# library(TxDb.Hsapiens.UCSC.hg19.knownGene)
# library(BSgenome.Hsapiens.UCSC.hg19)
#
# txdb <- TxDb.Hsapiens.UCSC.hg19.knownGene
# cdsByTx <- cdsBy(txdb)
#
# ## Use only chromosome 20.
# seqlevels(cdsByTx, force=TRUE) <- "chr20"
#
# ## Return a DNAStringSet of sequences corresponding to
# ## the cds regions.
# seqs <- getTranscriptSeqs(cdsByTx, Hsapiens)
#
# ## Sequences for the cds regions were retrieved from the BSgenome.
# ## Each element of the cdsByTx GRangesList is represented by
# ## a single DNAString in 'seqs'.
# cdsByTx[1]
# seqs[1]
# ## End(Not run)
Run the code above in your browser using DataLab