# Test the edge correction in K
library(devtools)
load_all(".")
library(spatstat)
x0 <- x <- rmpoispp(rep(100, 20)*2)
r <- seq(0, .3, l=20)
#Rprof()
t0 <- system.time( k <- K_cross_all_box(x, r) )
t1 <- system.time( k1 <- K_cross_all_box(x, r, correction=F) )
#summaryRprof()
plot(k[1,1,])
points(k1[1,1,])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.