tests/testthat/test-clust_it.R

test_that("clust_it works", {
        set.seed(1)
        clu <- clust_it(pop = pop_epp)
        expect_equal(length(clu), 2)
        expect_error(clust_it(pop = pop_epp, g1 = 50))
})
RichDeto/EPP documentation built on May 5, 2022, 10:23 p.m.