Я использую пакет NLMR с
# simulate polygonal landscapes
mosaicgibbs <- NLMR::nlm_mosaicgibbs(ncol = 100,
nrow = 100,
germs = 20,
R = 2,
patch_classes = 3)
# visualize the NLM
rasterVis::levelplot(mosaicgibbs, margin = FALSE, par.settings = rasterVis::viridisTheme())
Но я бы хотел исправить номер семени для воспроизведения пространственного шаблона.
Iпытался с set.seed(123)
, но это не работает.E.