# --------------------------------------------------------------- #

    fresh(save=FALSE, utils=TRUE, dt=TRUE)    

    loadFromLastBackUp <- FALSE
    verbose <- TRUE
    onlyBrasil <- FALSE
    maxValidDate <- as.Date("2014-01-01", origin="1970-01-01")

    utilSource()
    pkgs <- c("data.table", "Hmisc")
    suppressPackageStartupMessages( lib(pkgs, update=FALSE, quietly=TRUE) )

    projName <- "SomLivre"
    wrkDir   <- "~/git/orch"
    setScience(wrkDir=wrkDir, projName=projName, subl=FALSE, loadImage=loadFromLastBackUp)

    EXCEL.FIX <- as.Date("1904-01-01") - as.Date("1899-12-30")
    frmt.monthday_time <- "%m%d_%H%M"


#    source(as.path(gsub("ES$","", srcDir), "createPlots.r"))

    
#    source(as.path(srcDir, "Funcs.r"))
# --------------------------------------------------------------- #