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