script/caricafile.R

In Chiarini/icrmkpi: KPI formula

# clean up
rm(list = ls(all =-T ))

# pkgs
require(readr)
# require(dplyr)
# require(ggplot2)
# require(tsibble)

# require(stringr)
# require(lubridate)
require(icrmkpi)


data_dir_iwo = "~/data/icrmkpi/iwo/"
data_dir_aging = "~/data/icrmkpi/aging"

# Load data
niagara_data <- load_niagara(data_dir_iwo, 'niagara.csv')
company_region_data <- load_company_region (data_dir_iwo, 'company-region.csv')
exemption_data <- load_exemption( data_dir_iwo,  'exemption.csv')
iwo_data <- load_iwo_all(data_dir_iwo)

aging_data <- load_aging_all(data_dir_aging, company_region_data)

# pars
iwo_data <- prepare_iwo (data = iwo_data,
                         .company = 'G046' ,
                         exemption = T,
                         min_amount = 5000,
                         .year = 2020 ,
                         .month = 3,
                         exemption_data = exemption_data,
                         niagara_data = niagara_data)

plot_iwo(iwo_data)

aging_data <- prepare_aging(data = aging_data,
                            .company = 'G046' ,
                            .year = 2020 ,
                            .month = 3)

plot_aging(aging_data)


df_unusual <- prepare_unusual(data = unusual_data,.company = 'G046')