library(spatstat)
set.seed(123)
elevation <- bei.extra$elev
slope <- bei.extra$grad
plot(elevation)
plot(slope)
test.points <- runifpoint(100, win=bei$window)
# tests run with only 99 shifts to speed up the computation
out1 <- CC.test(covariateA=elevation, covariateB=slope, test.points=test.points, N.shifts=99,
radius=250, type="Kendall", correction="torus", verbose=TRUE)
out1
out2 <- CC.test(covariateA=elevation, covariateB=slope, test.points=test.points, N.shifts=99,
radius=250, type="Kendall", correction="variance", verbose=TRUE)
out2
Run the code above in your browser using DataLab