mymodel = c(mean=0, variance=1, nugget=0,
scale=2, alpha=2)
myraster = raster(nrows=11,ncols=11,xmn=0,xmx=10,ymn=0,ymx=10)
myGRF=GaussRF(myraster, model="whittle",
param=mymodel)
plot(myGRF)
mypoints = SpatialPointsDataFrame(cbind(runif(10), runif(10)),data=data.frame(id=1:10))
mypoints$rf= GaussRF(mypoints, model="whittle",
param=mymodel)
spplot(mypoints, "rf")
x = cbind(1:4, 1:4)
temp=GaussRF(x, model="whittle",
param=c(mean=0, variance=1, nugget=0,
scale=2, alpha=2))
Run the code above in your browser using DataLab