myAnisoMat = anisoMatrix(-pi/8, c(2, 0.5))
mymodel=list("$", var=2,
A=myAnisoMat,
list("matern", nu=2))
myraster = raster(nrows=41,ncols=41,xmn=0,xmx=10,ymn=0,ymx=10)
myGRF=GaussRF(myraster, model=mymodel)
plot(myGRF)
Run the code above in your browser using DataLab