times <- list(start = 0.0, end = 20.0)
parameters <- list(
.globals = list(stackName = "landscape", burnStats = "nPixelsBurned"),
.progress = list(NA),
randomLandscapes = list(nx = 100L, ny = 100L, inRAM = TRUE),
fireSpread = list(nFires = 10L, spreadprob = 0.225, its = 1e6, persistprob = 0,
returnInterval = 10, startTime = 0,
.plotInitialTime = 0.0, .plotInterval = 10),
caribouMovement = list(N = 100L, moveInterval = 1,
.plotInitialTime = 1, .plotInterval = 1)
)
modules <- list("randomLandscapes", "fireSpread", "caribouMovement")
path <- list(modulePath = system.file("sampleModules", package = "SpaDES"),
outputPath = file.path(tempdir(), "simOutputs"))
mySim <- simInit(times = times, params = parameters, modules = modules, path = path)
shine(mySim)
# if the user wants to see the events go by, which can help with debugging:
shine(mySim, debug=TRUE)
Run the code above in your browser using DataCamp Workspace