source('C:/Users/rober/Documents/R/ts.brb.test/Rprofile.site')
==========================
Motor Barbwin8 cargado
==========================source('C:/Users/rober/Documents/R/ts.brb.test/functions.R')
# Carga de datos
df <- haven::read_sav('C:/Users/rober/Documents/R/ts.brb.test/data/ESTUDIO_EJEMPLO.sav')
# recibimos la múltiple como cadena, pero con las etiquetas como si fuera de categoría nominal
# ajustamos acomo deberíamos pasar la múltiple, como cadena de valores separados por ; (original)
df$P5 <- c("2;3;5;7;11","4;5","3","1;4","1;3","4","1;5","2;3","2;3","4","1;2;3;4","1;3","3;5","5","2;3","1","1;4","1;5","2;3","1;4","2;3","1;2","1;2;3","2;3","2;3","1","3","1;4","1","2","5","4","3","2;3","5","2","2","1","2;3","1;4","1","1;2;5","1;2","3;4","2;3","1","2;5","1","2","1;4","1","2;5","1;2","3","3;4","2;3","5","2;3","2;5","1;5","5","2;3","2;5","5","5","3","2;3;5","1;2;3","1;4","1;5","2;3","1;2","3","1;2;5","2;3;4","1;2","2;5","1","2;5","2;3","1;2","1","1;2;4","1","2;3","4","2","5","5","1;2","2;4","2;3","5","3;4","2","1;2","2;4","4;5","3","1;4","1;3","4","1;5","2;3","2;3","4","1;2;3;4","1;3","3;5","5","2;3","1","1;4","1;5","2;3","1;4","2;3","1;2","1;2;3","2;3","2;3","1","3","1;4","1","2","5","4","3","2;3","5","2","2","1","2;3","1;4","1","1;2;5","1;2","3;4","2;3","1","2;5","1","2","1;4","1","2;5","1;2","3","3;4","2;3","5","2;3","2;5","1;5","5","2;3","2;5","5","5","3","2;3;5","1;2;3","1;4","1;5","2;3","1;2","3","1;2;5","2;3;4","1;2","2;5","1","2;5","2;3","1;2","1","1;2;4","1","2;3","4","2","5","5","1;2","2;4","2;3","5","3;4","2","1;2","2;4","4;5","3","1;4","1;3","4","1;5","2;3","2;3","4","1;2;3;4","1;3","3;5","5","2;3","1","1;4","1;5","2;3","1;4","2;3","1;2","1;2;3","2;3","2;3","1","3","1;4","1","2","5","4","3","2;3","5","2","2","1","2;3","1;4","1","1;2;5","1;2","3;4","2;3","1","2;5","1","2","1;4","1","2;5","1;2","3","3;4","2;3","5","2;3","2;5","1;5","5","2;3","2;5","5","5","3","2;3;5","1;2;3","1;4","1;5","2;3","1;2","3","1;2;5","2;3;4","1;2","2;5","1","2;5","2;3","1;2","1","1;2;4","1","2;3","4","2","5","5","1;2","2;4","2;3","5","3;4","2","1;2","2;4","4;5","3","1;4","1;3","4","1;5","2;3","2;3","4","1;2;3;4","1;3","3;5","5","2;3","1","1;4","1;5","2;3","1;4","2;3","1;2","1;2;3","2;3","2;3;4","1","3","1;4","1","2","5","4","3","2;3","5","2","2","1","2;3","1;4","1","1;2;5","1;2","3;4","2;3","1","2;5","1","2","1;4","1","2;5","1;2","3","3;4","2;3","5","2;3","2;5","1;5","5","2;3","2;5","5","5","3","2;3;5","1;2;3","1;4","1;5","2;3","1;2","3","1;2;5","2;3;4","1;2","2;5","1","2;5","2;3","1;2","1","1;2;4","1","2;3","4","2","5","5","1;2","2;4","2;3","5","3;4","2","1;2")
#pero debemos etiquetar la variable como simple, yo aqui uso como asignación las etiquetas de la primera de las menciones
val_lab(df$P5) <- val_lab(df$P5_1)
# calculo un peso y una abierta para testar el ejemplo.
df$PESO <- sample(1:5, 384, replace=T)
df$OPEN_ENDED <- replicate(384, paste0(sample(c(LETTERS, 0:9), 8, replace = TRUE), collapse = ""))
bw8holecount(
df = df,
vars = c("SEXO", "EDAD", "P15", "P5", "OPEN_ENDED"),
type = c("nominal", "nominal", "metric", "multiple", "nominal"),
mode = c("labelled", "labelled", "values", "labelled", "values"),
plot = c(FALSE, TRUE, FALSE, TRUE, FALSE),
weight_var = NULL,
publish = TRUE
)SEXO
Recuento — Variable nominal
EDAD
Recuento — Variable nominal
¿Cuántas personas iban en el mismo?
Recuento — Variable métrica
P5
Recuento — Respuesta múltiple
OPEN_ENDED
Recuento — Variable nominal