set.seed(42)
n <- 150
menages <- data.frame(
eau = rbinom(n, 1, 0.45),
electricite = rbinom(n, 1, 0.60),
scol = rbinom(n, 1, 0.35),
sante = rbinom(n, 1, 0.25),
poids = runif(n, 0.8, 1.3)
)
indics <- list(
acces_eau = list(var = "eau", poids = 0.25,
dimension = "Conditions de vie"),
acces_elec = list(var = "electricite", poids = 0.25,
dimension = "Conditions de vie"),
education = list(var = "scol", poids = 0.30,
dimension = "Education"),
sante_base = list(var = "sante", poids = 0.20,
dimension = "Sante")
)
res <- calcul_ipm_national(menages, indicateurs = indics,
poids = "poids", seuil_k = 1/3)
print(res)
Run the code above in your browser using DataLab