if(requireNamespace("spatstat.random")) {
X <- spatstat.random::rpoispp(100)
vKX1 <- ripVar(X,r=0.05*(1:5))
if(requireNamespace("spatstat.explore")) {
r <- spatstat.explore::Kest(X)$r
vKX2 <- ripVar(X,r=r)
plot(r,vKX2,type="l")
points(0.05*(1:5),vKX1)
}
}
Run the code above in your browser using DataLab