set.seed(42)
n <- 500
ind <- data.frame(
actif = rbinom(n, 1, 0.65),
employe = rbinom(n, 1, 0.55),
informel = rbinom(n, 1, 0.72),
poids = runif(n, 0.8, 1.3),
stringsAsFactors = FALSE
)
r1 <- suppressMessages(taux_activite(ind, "actif", poids="poids"))
r2 <- suppressMessages(taux_emploi(ind, "employe", poids="poids"))
r3 <- suppressMessages(emploi_informel(ind, "informel", poids="poids"))
tableau_marche_travail(list(activite=r1, emploi=r2, informel=r3),
pays="Centrafrique", annee=2026L)
Run the code above in your browser using DataLab