
Last chance! 50% off unlimited learning
Sale ends in
RMmodel
RMid(phi, vdim, var, scale, Aniso, proj)
RMmodel
.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