tests/testthat/test-eppproy.R

test_that("eppproy works", {
        set.seed(1)
        proy <- eppproy(pop = pop_epp)
        expect_equal(class(proy), "list")
        expect_equal(length(proy), 3)
})
RichDeto/EPP documentation built on May 5, 2022, 10:23 p.m.