# Agent Analysis

    library(alcyon)
    #> Loading required package: sf
    #> Linking to GEOS 3.13.1, GDAL 3.10.3, PROJ 9.6.0; 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)