tests/testthat/test-consumer.R

In microbiome/miaSim: Microbiome Data Simulation

test_that("simulateConsumerResource", {
    tse <- simulateConsumerResource(
        n_species = 2,
        n_resources = 4
    )
    expect_s4_class(tse, "TreeSummarizedExperiment")
    expect_equal(dim(tse), c(2, 1000))    
})