data("cycads")
# count seqs for a random 10 clusters
random_cids <- sample(cycads@cids, 10)
nsqs <- get_nsqs(phylota = cycads, cid = random_cids)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.