fa.file <- file.path(file.path(path.package("microseq"),"extdata"),"small.ffn")
fa <- readFasta(fa.file)
translate(fa$Sequence)
# Or, make use of dplyr to manipulate tables
readFasta(fa.file) %>%
mutate(Protein = translate(Sequence)) -> fa.tbl
Run the code above in your browser using DataLab