tests/testthat/test-clust_pop.R

test_that("clust_it works", {
        a <- clust_pop(pop_epp, k = 10)
        expect_equal(ncol(a), 7)
})

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.