RFoptions(seed=0) ## *ANY* simulation will have the random seed 0; set
## RFoptions(seed=NA) to make them all random again
model <- RMexp()
x <- 0:10
z <- RFsimulate(model, x, spC=FALSE)
model2 <- RMid(model)
z2 <- RFsimulate(model, x, spC=FALSE)
sum(abs(z-z2)) == 0 # TRUE
FinalizeExample()
Run the code above in your browser using DataLab