Changed number to match number of ages from 18-70 (53).

Author: jackmurphy2351

tests/testthat/test-calc-risk-diff.R

@@ -41,7 +41,7 @@ create_cachar_inspired_data <- function(n = 1500, seed = 2025) {
     dplyr::mutate(
       # Age structure matching Northeast India patterns
       age = sample(18:70, n, replace = TRUE,
-                   prob = c(rep(0.8, 22), rep(1.2, 30), rep(0.6, 21))),
+                   prob = c(rep(0.8, 8), rep(1.2, 30), rep(0.6, 15)),
 
       # Sex distribution (male predominant in screening studies)
       sex = factor(sample(c("male", "female"), n, replace = TRUE,