tests/testthat/test-clust_pop.R

test_that("clust_it works", {
        a <- clust_pop(pop_epp, k = 10)
        expect_equal(ncol(a), 7)
})
RichDeto/EPP documentation built on May 5, 2022, 10:23 p.m.