RFoptions(seed=0)
model <- RMcurlfree(RMgauss(), scale=4)
x.seq <- y.seq <- seq(-10, 10, if (interactive()) 0.2 else 5)
simulated <- RFsimulate(model=model, x=x.seq, y=y.seq, grid=TRUE)
plot(simulated, select.variables=list(1, c(1, 2:3), 4))
RFoptions(seed=NA)
Run the code above in your browser using DataLab