# NOT RUN {
gbk_file <- system.file("extdata", "S_cerevisiae_mito.gb", package = "biofiles")
x <- gbRecord(gbk_file)
## extract the full-length sequence of the record.
getSequence(x)
## extract coding sequences only
getSequence(x["CDS"])
# }
Run the code above in your browser using DataLab