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