set.seed(52); res1_anemones = spatstat.data::anemones |>
rlabelRes(fun = spatstat.explore::Kmark)
set.seed(52); res1_anemones_times = spatstat.data::anemones |>
rlabelRes(fun = spatstat.explore::Kmark, f = `*`)
stopifnot(!identical(res1_anemones, res1_anemones_times))
# \donttest{
set.seed(52); spatstat.data::anemones |>
rlabelRes(fun = spatstat.explore::Kmark, f = \(m1, m2) { m1*m2 }) |>
identical(y = res1_anemones_times) |>
stopifnot()
# }
set.seed(12); res_ants = spatstat.data::ants |>
rlabelRes(fun = spatstat.explore::Gcross)
Run the code above in your browser using DataLab