RFoptions(seed=0) ## *ANY* simulation will have the random seed 0; set
## RFoptions(seed=NA) to make them all random again
x <- y <- seq(-2, 2, len=if (interactive()) 20 else 2)
model <- RMkolmogorov()
simu <- RFsimulate(model, x, y, z=0, grid=TRUE)
plot(simu, select.variables=list(c(1,2)), col=c("red"))
FinalizeExample()
Run the code above in your browser using DataLab