library(RandomFields)
library(raster)
nx <- ny <- 100L
r <- raster(nrows=ny, ncols=nx, xmn=-nx/2, xmx=nx/2, ymn=-ny/2, ymx=ny/2)
speedup <- max(1, nx/5e2)
map1 <- gaussMap(r, scale=300, var=0.03, speedup=speedup, inMemory=TRUE)
Plot(map1)
Run the code above in your browser using DataLab