5.2 Versión 0.3 de la base de datos
Estos ejemplos son utilizando la versión 0.3 de la base de datos (archivo dbf_v03.RData). Este archivo contiene los reclamos desde el 2010 a principios del 2019, para los mercados financieros, previsión, salud y seguros solamente. Las columnas contempladas están indicadas en la sección 2.1.3.
El peso de este archivo es de 199MB y contiene poco más de 700000 registros.
Si se desea agregar variables nuevas utilizando el archivo columnas_homologacion.xlsx (ver 2.1.2) que no están contenidas aquí, se deberá generar el archivo nuevamente (esto último no es parte de este instructivo).
5.2.1 Homologación de la base de datos
rm(list=ls())
library(SERNAC)
load("./DATA/dbf_v03.RData") # modificar por la ruta propia y el archivo apropiado
#-- Datos de homologacion
diccionario_columnas <- "DATA/homologacion_columnas.xlsx"
codigos_comunales <- "DATA/codigos_comunales.xlsx"
arbol_motivo_legal <- "DATA/arbol_de_mercado.xlsx"
datos_sii <- "DATA/SII/compilado_2018.csv"
#-- Datos nuevos
db1 <- "DATA/2019/B_Reclamos_al_31122019_extraida_24022020_liviana.csv"
db2 <- "DATA/2020/B_Reclamos_al_15062020_extraida_16062020_amplia.csv"
dbfM <- agregar_dbs(base=dbf,
diccionario_columnas=diccionario_columnas,
codigos_comunales=codigos_comunales,
arbol_motivo_legal=arbol_motivo_legal,
datos_sii=datos_sii,
db1, db2)5.2.2 Ejecución alertas
Clases <- c(mercado="proveedor_mercado_nombre",
industria="proveedor_mercado_categoria_nombre",
proveedor="proveedor_rut",
producto="mercado_tipo_producto_nombre")
outt <- computar_reclamos(dbfM[estado_caso_nombre=="CERRADO"],
byCategoria=c("cierre_corto",
"motivo_legal_descripcion"),
byClase=Clases,
lags=c(1:6, 12, 24),
cuantiles=c(.25, .75),
IQR=c(.25, .75),
coef=1.5,
n_min=50,
usar_tiempo=F,
rango_fechas = c("2016-01-01", NA) )
topn <- 30
nmin <- 15
t_observado <- c("2020-04-15", "2020-05-15")
outt <- seleccionar_ranking(outt, topn=topn, nmin=nmin, t_observado=t_observado, tipo='N')
outt <- extraer_series(outt)
outt <- reportar(outt)
shinyPlot(outt)