library(spatstat.random)
library(spatstat.geom)
X <- rpoispp(100)
marks(X) <- data.frame(
t1 = runif(npoints(X),1,10),
t2 = runif(npoints(X),1,10),
t3 = runif(npoints(X),1,10),
t4 = runif(npoints(X),1,10),
t5 = runif(npoints(X),1,10))
lfmcorr(X, ftype = "stoyan", method = "density")
Run the code above in your browser using DataLab