data(Lee)
dn <- phyloseq::tax_glom(Lee, taxrank="Phylum") %>%
divnet(tuning = "test")
test_that("make alpha estimates works", {
expect_type(make_alpha_estimates(dn), "list")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.