myAnisoMat = anisoMatrix(-pi/8,c(0.5, 0.1))
mymodel=list("$", var=2,
A=myAnisoMat,
list("whittle", 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