library(spatstat.linnet)
library(spatstat.geom)
library(spatstat.explore)
X <- rpoislpp(10, simplenet)
marks(X) <- runif(npoints(X), 1, 10)
lmcorrinhom.lpp(X, ftype = "stoyan", method = "density",
method_lambda = "kernel", bw = bw.scott.iso)
Run the code above in your browser using DataLab