## 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 variograma function
out <- gte(hpp)
# R plot - Temporal mark variogram function
par(mfrow=c(1,1))
xl <- c(0,0.25)
yl <- c(0,max(out$egte,out$gtetheo))
plot(out$dt,out$egte,type="l",xlab="t = time",ylab=expression(gamma[te](t)),
xlim=xl,ylim=yl,col=1,cex.lab=1.5,cex.axis=1.5)
lines(out$dt,rep(out$gtetheo,length(out$dt)),col=11)
## End(Not run)
Run the code above in your browser using DataLab