tests/testthat/test-alpha_estimates.R

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")
})
adw96/DivNet documentation built on Oct. 2, 2023, 11:49 a.m.