tests/testthat/test-assign_nn.R

test_that("assign_nn works", {
        library(osrm)
        pop_epp_nn <- assign_nn(x = pop_epp[1:2,], y = centers_epp)
        expect_equal(ncol(pop_epp_nn), 7)
        expect_error(assign_nn(pop_epp[1:2,], centers_epp, y.id = "fid"))
})

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.