tests/testthat/test-assign_clust.R

test_that("assign_clust works", {
        set.seed(1)
        a <- clust_it(pop_epp)
        a <- assign_clust(clustered = a)
        expect_equal(length(a), 2)
})

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.