set.seed(42)
n <- 200
menages <- data.frame(
nutrition = rbinom(n, 1, 0.35),
mortalite_inf = rbinom(n, 1, 0.12),
annees_scol = rbinom(n, 1, 0.40),
scolarisation = rbinom(n, 1, 0.28),
combustible = rbinom(n, 1, 0.55),
assainissement = rbinom(n, 1, 0.48),
eau = rbinom(n, 1, 0.38),
electricite = rbinom(n, 1, 0.62),
logement = rbinom(n, 1, 0.42),
actifs = rbinom(n, 1, 0.30),
poids = runif(n, 0.8, 1.3)
)
res <- calcul_ipm(menages,
var_nutrition = "nutrition",
var_mortalite_inf = "mortalite_inf",
var_annees_scol = "annees_scol",
var_scolarisation = "scolarisation",
var_combustible = "combustible",
var_assainissement = "assainissement",
var_eau = "eau",
var_electricite = "electricite",
var_logement = "logement",
var_actifs = "actifs",
poids = "poids"
)
print(res)
Run the code above in your browser using DataLab