tests/5-dixon.R

# test dixon
#library(devtools)
#load_all(".")

library(aninISAR)
library(spatstat)
library(spatialsegregation)

data("amacrine")
x <- amacrine

v <- spatialsegregation::dixon(x)
w <- aninISAR::dixon(x)

print(all.equal(v,w))
antiphon/sseg documentation built on May 10, 2019, 12:22 p.m.