RFoptions(seed=0) ## *ANY* simulation will have the random seed 0; set
## RFoptions(seed=NA) to make them all random again
x <- y <- seq(-10,10,0.2)
model <- RMdelay(RMstable(alpha=1.9, scale=2), s=c(4,4))
simu <- RFsimulate(model, x, y, grid=TRUE)
plot(simu, zlim="joint")
FinalizeExample()
Run the code above in your browser using DataLab