```
## Not run:
# 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)
# ## End(Not run)
```

Run the code above in your browser using DataCamp Workspace