# NOT RUN {
#
# List all available methods for getFrag generic function:
#
methods(getFrag)
#
# Example with a DNA sequence from a FASTA file:
#
dnafile <- system.file("sequences/malM.fasta", package = "seqinr")
sfdna <- read.fasta(file = dnafile)
myfrag <- getFrag(sfdna[[1]], begin = 1, end = 10)
stopifnot(getSequence(myfrag, as.string = TRUE) == "atgaaaatga")
# }
Run the code above in your browser using DataLab