## Not run: # Need internet connection
# choosebank("emblTP")
# #
# # Example with a file that contains sequence names:
# #
# fileSQ <- system.file("sequences/bb.mne", package = "seqinr")
# listSQ <- crelistfromclientdata("listSQ", file = fileSQ, type = "SQ")
# sapply(listSQ$req, getName)
# #
# # Example with a file that contains sequence accession numbers:
# #
# fileAC <- system.file("sequences/bb.acc", package = "seqinr")
# listAC <- crelistfromclientdata("listAC", file = fileAC, type = "AC")
# sapply(listAC$req, getName)
# #
# # Example with a file that contains species names:
# #
# fileSP <- system.file("sequences/bb.sp", package = "seqinr")
# listSP <- crelistfromclientdata("listSP", file = fileSP, type = "SP")
# sapply(listSP$req, getName)
# #
# # Example with a file that contains keywords:
# #
# fileKW <- system.file("sequences/bb.kwd", package = "seqinr")
# listKW <- crelistfromclientdata("listKW", file = fileKW, type = "KW")
# sapply(listKW$req, getName)
# #
# # Summary of ACNUC lists:
# #
# sapply(alr()$rank, getliststate)
# closebank()
# ## End(Not run)
Run the code above in your browser using DataLab