--- a
+++ b/data-raw/ecoli_small.R
@@ -0,0 +1,4 @@
+library(Biostrings)
+ecoli_small <- Biostrings::readDNAStringSet("data-raw/ecoli_small.fasta")[[1]]
+ecoli_small <- paste0("|", paste(ecoli_small, collapse = "-"),"|") 
+use_data(ecoli_small, overwrite = TRUE)