# NOT RUN {
load(system.file("extdata", "S_cerevisiae_mito.rda", package = "biofiles"))
cytb <- ft(filter(x, product = "^cytochrome b$"))
## find the three nearest upstream neighbor CDS to CYTB
upstream(cytb, x["CDS"], n = 3)
# }
Run the code above in your browser using DataLab