powered by
A = diag(d_1, d_2) %*% matrix(ncol=2, c(cos(a), sin(a), -sin(a), cos(a)))
RMangle(angle, ratio, diag)
a
diag=c(1, 1/ratio)
RMmodel
RFoptions(seed=0) x <- seq(0, 2, 0.05) model <- RMexp(Aniso=RMangle(angle=pi/4, ratio=3)) z <- RFsimulate(x, x, grid=TRUE, model=model) plot(z) RFoptions(seed=NA)
Run the code above in your browser using DataLab