# \donttest{
donnees <- data.frame(age=sample(0:80,100,replace=TRUE), sexe=sample(c("H","F"),100,replace=TRUE))
p <- pyramide_ages(donnees, "age", "sexe")
exporter_graphique(p, file.path(tempdir(), "pyramide.png"))
# }
Run the code above in your browser using DataLab