if (FALSE) {
if (require(NLMR)) {
library(raster)
nx <- ny <- 100L
r <- raster(nrows = ny, ncols = nx, xmn = -nx/2, xmx = nx/2, ymn = -ny/2, ymx = ny/2)
map1 <- neutralLandscapeMap(r,
roughness = 0.65,
rand_dev = 200,
rescale = FALSE,
verbose = FALSE)
if (interactive()) Plot(map1)
}
}
Run the code above in your browser using DataLab