set.seed(42)
menages <- data.frame(
depense_pc = c(rexp(70, rate = 1/150000), rexp(30, rate = 1/500000)),
poids = runif(100, 0.8, 1.2),
electricite = sample(c(0L, 1L), 100, TRUE, prob = c(0.45, 0.55)),
eau_potable = sample(c(0L, 1L), 100, TRUE, prob = c(0.35, 0.65)),
internet = sample(c(0L, 1L), 100, TRUE, prob = c(0.7, 0.3))
)
# ODD 1.2.1 - Pauvrete nationale
odd_indicateur(menages, "1.2.1",
var_depense = "depense_pc", seuil = 200000,
poids = "poids")
# ODD 7.1.1 - Acces a l'electricite
odd_indicateur(menages, "7.1.1", var_indicateur = "electricite",
poids = "poids")
Run the code above in your browser using DataLab