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))
})

Try the EPP package in your browser

Any scripts or data that you put into this service are public.

EPP documentation built on Jan. 25, 2022, 5:07 p.m.