set.seed(42)
n <- 500
donnees <- data.frame(
region = sample(c("Nord","Sud","Est","Ouest"), n, TRUE),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 800, 3500),
depense = pmax(10000, rnorm(n, 165000, 90000)),
sexe = sample(c("H","F"), n, TRUE),
age = sample(15:80, n, TRUE),
stringsAsFactors = FALSE
)
valider_statistique_ins(donnees,
var_poids = "poids",
var_region = "region",
var_milieu = "milieu",
pays = "Centrafrique",
annee = 2024L)
Run the code above in your browser using DataLab