# NOT RUN {
load(system.file("extdata", "S_cerevisiae_mito.rda", package = "biofiles"))
## shift the S. cerevisiae mitochondrion such that cytochrome b is the first CDS
cytb <- start(filter(x, product = "^cytochrome b$")[[1]])[1]
x2 <- shift(x, shift = -cytb + 1, split = TRUE)
# }
Run the code above in your browser using DataLab