2.4 Ejemplo homologación R

setwd("ruta a mi directorio") # reemplazar por la ruta propia
rm(list=ls())
library(SERNAC)
load("./DATA/dbf_v03.RData") # modificar por la ruta propia y el archivo apropiado

#-- Datos de homologacion
diccionario_columnas <- "homologacion_columnas.xlsx"
codigos_comunales <- "codigos_comunales.xlsx"
arbol_motivo_legal <- "arbol_de_mercado.xlsx"
datos_sii <- "compilado_2018.csv"

#-- Datos nuevos
db1 <- "DATA/2019/B_Reclamos_al_31122019_extraida_24022020_liviana.csv" # base de datos del 2019
db2 <- "DATA/2020/B_Reclamos_al_15062020_extraida_16062020_amplia.csv" # base de datos de lo que va del 2020

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)

Una salida del resultado del código anterior, puede ser encontrado en la figura 2.1, el cual a pesar de las advertencias que contiene, terminó sin incovenientes, y la base de datos se encuentra lista para ser analizada.

Figura 2.1: Resultado de un proceso de homologación exitoso.