RFoptions(seed=0)
model <- RMexp()
x <- 0:10
RFoptions(seed=0)
z <- RFsimulate(model, x, spC=FALSE)
model2 <- RMid(model)
RFoptions(seed=0)
z2 <- RFsimulate(model, x, spC=FALSE)
sum(abs(z-z2)) == 0 # TRUE
RFoptions(seed=NA)
Run the code above in your browser using DataLab