# share-initialize.R

gc()
rm(list=ls())
options(datatable.print.nrows=10000)
options(scipen = 999)
options(digits = 3)
# options(error = stop())
# options(warn = 2)

closeAllConnections() 

setwd('C:/SHARE/R')

source('share-libraries.R')
source('share-functions.R')
source('share-functions-stat.R')
source('share-function-country.R')

memory.limit(size=20000)