# Example of defining accession number ranges.
accession_ranges <- list(
SRU1 = "AJ240966 to AJ240970",
STU2 = "AB015240 to AB015250",
WRU8 = c("AF245628", "AF353208 to AF353210"),
WPU13 = "L11934 to L11940",
INU20 = c("AF277467 to AF277470", "AF333080 to AF333086")
)
# Use the function to expand accession ranges
sam_acc <- expand_accession_ranges(accession_ranges)
print(sam_acc)
Run the code above in your browser using DataLab