tests/testthat/test-group_over.R

test_that("clust_it works", {
        a <- group_over(rbind(centers_epp, centers_epp[ 1:3,]))
        expect_equal(nrow(a), 10)
})

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.