knitr::opts_chunk$set( collapse = TRUE, comment = "#>", message=F )
Le package contient les fonctions :
if (!require("devtools")) install.packages("devtools", dep=T) devtools::install_github("Grisoudre/lourdR")
library(lourdR) library(questionr) library(dplyr)
A partir des données extraites de l'enquête "Histoire de vie", 2003, Insee, et fournies par le package {questionr} :
data("hdv2003") # Renommer les variables cibles avec le préfixe "activite_" : index<-match("hard.rock", names(hdv2003)):match("sport", names(hdv2003)) hdv2003 <- hdv2003 %>% rename_at(index,~paste0("activite_",.))
freqm(hdv2003, "activite_")
freqm(hdv2003, "activite_", poids = "poids")
freqm(hdv2003, 'activite_', poids="poids", calc="%")
freqm(hdv2003, 'activite_', poids="poids", calc="%",transpose=T)
freqm(hdv2003, 'sexe', poids="poids")
freqm(hdv2003, 'sexe', poids="poids", transpose=T)
freqp(hdv2003, "sexe", poids="poids")
freqp(hdv2003, "sexe", poids="poids", freq=F)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.