source('functions.R')
data <- expss::read_spss('ESTUDIO_EJEMPLO.sav')
res <- bw8outliers(
data,
id_var = "NUM_CUE",
vars_calc = c("P15", "P16"),
var_grp = c("SEXO","ZONA"),
method = "univariate",
charting = "separate",
n_sd = 3,
publish = TRUE
)
res <- bw8outliers(
data,
id_var = "NUM_CUE",
vars_calc = c("P15", "P16"),
var_grp = c("ZONA"),
method = "univariate",
charting = "together",
n_sd = 3,
publish = TRUE
)4 Outliers
4.1 Revisión 104
Esta revisión anula el cálculo anterior. Como estamos haciendo en rutinas recientes, modificamos por una función que ya hace todo lo necesario.