library(alcyon)
#> Loading required package: sf
#> Linking to GEOS 3.10.2, GDAL 3.4.1, PROJ 8.2.1; sf_use_s2() is TRUE
#> Loading required package: stars
#> Loading required package: abind
galleryMap <- st_read(
system.file(
"extdata", "testdata", "gallery",
"gallery_lines.mif",
package = "alcyon"
),
geometry_column = 1L, quiet = TRUE
)
pointMap <- makeVGAPointMap(
galleryMap,
fillX = 3.01,
fillY = 6.7,
gridSize = 0.06
)
plot(pointMap["Connectivity"])
agentAnalysis <- agentAnalysis(pointMap,
timesteps = 10000,
releaseRate = 0.1,
agentLifeTimesteps = 1000,
agentFov = 16,
agentStepsToDecision = 3,
agentLookMode = AgentLookMode$Standard
)
plot(agentAnalysis$pointMap["Gate Counts"])
agentAnalysis <- agentAnalysis(pointMap,
timesteps = 10000,
releaseRate = 0.1,
agentLifeTimesteps = 1000,
agentFov = 16,
agentStepsToDecision = 3,
agentLookMode = AgentLookMode$Standard,
numberOfTrails = 50
)
plot(agentAnalysis$trailMap)
