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

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.