set.seed(42)
menages <- data.frame(
depense_pc = c(rexp(70, 1/150000), rexp(30, 1/500000)),
poids = runif(100, 0.8, 1.2),
electricite = sample(c(0L, 1L), 100, TRUE, c(0.45, 0.55)),
eau_potable = sample(c(0L, 1L), 100, TRUE, c(0.35, 0.65))
)
r1 <- odd_indicateur(menages, "1.2.1",
var_depense = "depense_pc", seuil = 200000)
r2 <- odd_indicateur(menages, "7.1.1",
var_indicateur = "electricite")
tableau_odd(list(r1, r2), pays = "Centrafrique", annee = 2026L)
Run the code above in your browser using DataLab