Agent Analysis

library(alcyon)
#> Loading required package: sf
#> Linking to GEOS 3.11.1, GDAL 3.6.2, PROJ 9.1.1; sf_use_s2() is TRUE
#> Loading required package: stars
#> Loading required package: abind
#> Loading required package: igraph
#> 
#> Attaching package: 'igraph'
#> The following objects are masked from 'package:stats':
#> 
#>     decompose, spectrum
#> The following object is masked from 'package:base':
#> 
#>     union

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)