powered by
RMmodel
RMid(phi, vdim, var, scale, Aniso, proj)
set.seed(0) model <- RMexp() x <- 0:10 set.seed(0) z <- RFsimulate(model, x, spC=FALSE) model2 <- RMid(model) set.seed(0) z2 <- RFsimulate(model, x, spC=FALSE) sum(abs(z-z2)) == 0 # TRUE
Run the code above in your browser using DataLab