tests/testthat/test-estimate_pcf_fast.R

testthat::context("test-estimate_pcf_fast")

testthat::test_that("estimate_pcf returns spatstat.fv object", {

  pattern <- spatstat.random::runifpoint(n = 100)

  pcf_est <- estimate_pcf_fast(pattern)

  testthat::expect_is(pcf_est, "fv")
})

Try the onpoint package in your browser

Any scripts or data that you put into this service are public.

onpoint documentation built on March 7, 2023, 8:04 p.m.