set.seed(42)
n <- 300
menages <- data.frame(
depense = c(rexp(200, 1/150000), rexp(100, 1/500000)),
milieu = sample(c("urbain","rural"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
res <- calcul_gini(menages, "depense", poids = "poids")
print(res)
Run the code above in your browser using DataLab