tests/testthat/test-pcf_fast.R

In onpoint: Helper Functions for Point Pattern Analysis

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