tests/testthat/test-pcf_fast.R

# testthat::context("test-pcf_fast")

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

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

  pcf_est <- pcf_fast(pattern)

  testthat::expect_s3_class(pcf_est, "fv")
})
r-spatialecology/onpoint documentation built on Feb. 14, 2025, 9:05 p.m.