set.seed(42)
n <- 200
menages <- data.frame(
nutrition = rbinom(n,1,0.35), electricite = rbinom(n,1,0.60),
eau = rbinom(n,1,0.40), scolarisation = rbinom(n,1,0.30),
poids = runif(n,0.8,1.3)
)
res <- calcul_ipm(menages, var_nutrition="nutrition",
var_electricite="electricite", var_eau="eau",
var_scolarisation="scolarisation", poids="poids")
graphique_ipm(res)
Run the code above in your browser using DataLab