tests/testthat/test-randomE.R

test_that("randomE", {
    x <- randomE(n_species = 5, n_resources = 12)
    expect_type(x, "double")
    expect_equal(dim(x), c(5, 12))
})
microbiome/miaSim documentation built on July 22, 2024, 4:58 p.m.