# Create a vector of sequence names to drop or keep.
identifier <- names(geophagus)[1:3]
# Remove sequences listed in identifier
drop_sequences(geophagus, identifier, drop = TRUE)
# Remove sequences not listed in identifier
drop_sequences(geophagus, identifier, drop = FALSE)
Run the code above in your browser using DataLab