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')
data <- expss::read_spss('data/datos_ejemplo.sav')
bw8describe(
df = data,
vars_calc = c("P15", "P16"),
var_group = c("SEXO", "ZONA"),
var_peso= NULL,
show_quartiles = TRUE,
show_deciles=TRUE,
transpose = FALSE,
publish = TRUE
)