set.seed(0)
model <- RMexp()
x <- seq(0, 10, if (interactive()) 0.02 else 1)
z <- RFsimulate(model, x=x)
emp.vario <- RFempiricalvariogram(data=z)
plot(emp.vario, model=model)
model <- RMexp(Aniso=cbind(c(2,1), c(1,1)))
x <- seq(0, 10, if (interactive()) 0.05 else 1)
z <- RFsimulate(x=x, y=x, model=model)
emp.vario <- RFempiricalvariogram(data=z, phi=4)
plot(emp.vario, model=model)
model <- RMexp()
T <- c(0, if (interactive()) 0.1 else 1, if (interactive()) 100 else 10)
z <- RFsimulate(x=x, T=T, model=model)
emp.vario <- RFempiricalvariogram(data=z, deltaT=c(10, 1))
plot(emp.vario, model=model, nmax.T=3)
Run the code above in your browser using DataLab