## ----aoi-perturb-setup--------------------------------------------------------
source(system.file("research", "october_2026_aoi_boundary_sensitivity.R",
                   package = "gp3tools"), local = TRUE)
points <- gp3tools_october_aoi_points()
audit <- gp3tools_october_aoi_sensitivity(points)
stopifnot(nrow(points) == 288L,
          audit$changed_fraction[audit$boundary == 50] == 0)
audit

## ----aoi-perturb-figure, fig.width=9, fig.height=4, fig.cap="Original R-generated, synthetic illustration of how AOI edge displacement changes assignment and disagreement with the declared 50-pixel reference. No measurement-accuracy claim."----
gp3tools_october_aoi_plot(audit)

## ----aoi-coordinate-figure, fig.width=8, fig.height=4, fig.cap="Synthetic x-coordinate distribution around the nominal AOI boundary; no participant recording or camera calibration measurement."----
graphics::hist(points$x, breaks = 25, col = "#D2E2EF",
               border = "#56728A", main = "Near-boundary exposure in synthetic data",
               xlab = "Horizontal sample coordinate (pixels)")
graphics::abline(v = c(46, 50, 54), lty = c(3, 1, 3),
                 col = c("#B05E43", "#24577B", "#B05E43"), lwd = 2)