RFoptions(seed=0) ## *ANY* simulation will have the random seed 0; set
## RFoptions(seed=NA) to make them all random again
x <- seq(0,25, if (interactive()) 0.02 else 5)
model <- RPtbm(RMspheric())
z <- RFsimulate(model, x, x)
plot(z)
FinalizeExample()
Run the code above in your browser using DataLab