Nothing
# 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_s3_class(pcf_est, "fv")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.