mifFile <- system.file(
"extdata", "testdata", "simple",
"simple_interior.mif",
package = "alcyon"
)
sfMap <- st_read(mifFile,
geometry_column = 1L, quiet = TRUE
)
pointMap <- makeVGAPointMap(
sfMap,
gridSize = 0.5,
fillX = 3.0,
fillY = 6.0,
maxVisibility = NA,
boundaryGraph = FALSE,
verbose = FALSE
)
agentAnalysis(
pointMap,
timesteps = 3000L,
releaseRate = 0.1,
agentStepsToDecision = 3L,
agentFov = 11L,
agentLife = 1000L,
agentLookMode = AgentLookMode$Standard,
originX = NA,
originY = NA,
locationSeed = 1L,
numberOfTrails = 50L,
getGateCounts = FALSE,
verbose = FALSE
)
Run the code above in your browser using DataLab