# NOT RUN {
#
# List all available methods for getSequence generic function:
#
methods(getSequence)
#
# SeqAcnucWeb class example:
#
# }
# NOT RUN {
# Need internet connection
choosebank("emblTP")
fc <- query("fc", "sp=felis catus et t=cds et o=mitochondrion")
getSequence(fc$req[[1]])
getSequence(fc$req[[1]], as.string = TRUE)
closebank()
# }
# NOT RUN {
#
# SeqFastaAA class example:
#
aafile <- system.file("sequences/seqAA.fasta", package = "seqinr")
sfaa <- read.fasta(aafile, seqtype = "AA")
getSequence(sfaa[[1]])
getSequence(sfaa[[1]], as.string = TRUE)
#
# SeqFastadna class example:
#
dnafile <- system.file("sequences/someORF.fsa", package = "seqinr")
sfdna <- read.fasta(file = dnafile)
getSequence(sfdna[[1]])
getSequence(sfdna[[1]], as.string = TRUE)
#
# SeqFrag class example:
#
sfrag <- getFrag(object = sfdna[[1]], begin = 1, end = 10)
getSequence(sfrag)
getSequence(sfrag, as.string = TRUE)
# }
Run the code above in your browser using DataLab