# Create a sequence database
gen <- system.file("extdata", "Bacteria_175seqs.gen", package="DECIPHER")
dbConn <- dbConnect(SQLite(), ":memory:")
Seqs2DB(gen, "GenBank", dbConn, "Bacteria")
# Identify the sequence lengths
l <- IdLengths(dbConn)
# Add lengths to the database
Add2DB(l, dbConn)
# View the added lengths
BrowseDB(dbConn)
dbDisconnect(dbConn)
Run the code above in your browser using DataLab