## 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 mark correlation function
out <- kmmr(hpp)
# R plot - Spatial mark correlation function
par(mfrow=c(1,1))
xl <- c(0,0.25)
plot(out$ds,out$ekmmr,type="l",xlab="r = distance",ylab=expression(k[mm](r)),
xlim=xl,col=1,cex.lab=1.5,cex.axis=1.5)
lines(out$ds,rep(out$kmmrtheo,length(out$ds)),col=11)
## End(Not run)
Run the code above in your browser using DataLab