if (FALSE) {
set.seed(42)
menages <- data.frame(
depense_pc = c(rexp(70, 1/150000), rexp(30, 1/500000)),
electricite = sample(c(0L,1L), 100, TRUE, c(0.45, 0.55)),
internet = sample(c(0L,1L), 100, TRUE, c(0.72, 0.28))
)
r1 <- odd_indicateur(menages, "1.2.1",
var_depense = "depense_pc", seuil = 200000)
r2 <- odd_indicateur(menages, "7.1.1",
var_indicateur = "electricite")
generer_rapport_odd(
list(r1, r2),
pays = "Republique Centrafricaine",
annee = 2026L,
cibles = list("1.2.1" = 50, "7.1.1" = 80)
)
}
Run the code above in your browser using DataLab