if (FALSE) {
set.seed(42)
donnees <- data.frame(
age = sample(18:70, 200, replace = TRUE),
revenu = rexp(200, rate = 1/250000),
sexe = sample(c("H","F"), 200, TRUE),
milieu = sample(c("urbain","rural"), 200, TRUE),
poids = runif(200, 0.8, 1.3)
)
meta <- list(
pays = "Republique Centrafricaine",
titre = "Enquete sur les conditions de vie des menages",
annee = 2026L,
source = "ICASEES",
auteur = "Direction des Statistiques"
)
generer_rapport_enquete(donnees, meta, sortie = "html")
}
Run the code above in your browser using DataLab