datadir <- system.file("extdata", package = "riboSeqR")
chlamyFasta <- paste(datadir, "/rsem_chlamy236_deNovo.transcripts.fa", sep = "")
fastaCDS <- findCDS(fastaFile = chlamyFasta,
startCodon = c("ATG"),
stopCodon = c("TAG", "TAA", "TGA"))
Run the code above in your browser using DataLab