## Not run:
#################
# A realisation of spatio-temporal homogeneous Poisson point processes
hpp <- rpp(lambda = 100, replace = FALSE)$xyt
# R plot
plot(hpp)
# This function provides an kernel estimator of the spatial r-mark function
out <- kmr(hpp)
# R plot - Spatial r-mark function
par(mfrow=c(1,1))
xl <- c(0,0.25)
plot(out$ds,out$ekmr,type="l",xlab="r = distance",ylab=expression(k[m.](r)),
xlim=xl,col=1,cex.lab=1.5,cex.axis=1.5)
lines(out$ds,rep(out$kmrtheo,length(out$ds)),col=11)
## End(Not run)
Run the code above in your browser using DataLab