library(spatstat)
u <- owin(c(0,1),c(0,1))
d <- bdist.pixels(u, eps=0.01)
image(d)
d <- bdist.pixels(u, eps=0.01, coords=FALSE)
mean(d >= 0.1)
# value is approx (1 - 2 * 0.1)^2 = 0.64
Run the code above in your browser using DataCamp Workspace