# NOT RUN {
if (require(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)
if (interactive()) Plot(map1)
# with non-default method
map1 <- gaussMap(r, scale = 300, var = 0.03, method = "RMgauss")
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab