Drop all sequences in a cluster except those identified by user.

drop_sqs(phylota, cid, sid)

Arguments

phylota

Phylota object

cid

Cluster ID

sid

Sequence ID(s) to be kept

Value

phylota

See also

Examples

data("dragonflies") # drop random sequences from cluster 0 clstr <- dragonflies[['0']] # specify the sids to *keep* sids <- sample(clstr@sids, 100) (dragonflies <- drop_sqs(phylota = dragonflies, cid = '0', sid = sids))
#> Phylota Table (Anisoptera) #> - [784] clusters #> - [10617] sequences #> - [1143] source taxa
# Note, sequences dropped may be represented in other clusters