diff options
Diffstat (limited to 'R/build_portfolios.R')
| -rw-r--r-- | R/build_portfolios.R | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/R/build_portfolios.R b/R/build_portfolios.R index 9bb13955..acf3c11b 100644 --- a/R/build_portfolios.R +++ b/R/build_portfolios.R @@ -3,17 +3,12 @@ library("yaml") args <- commandArgs(trailingOnly=TRUE) -if(Sys.getenv("DATA_DIR") == ""){ - root.dir <- "/home/serenitas/CorpCDOs" -}else{ - root.dir <- file.path(Sys.getenv("DATA_DIR"), "..") -} -code.dir <- if(Sys.getenv("CODE_DIR")=="") file.path(root.dir, "code") else Sys.getenv("CODE_DIR") - -source(file.path(code.dir, "R", "intex_deal_functions.R"), chdir=TRUE) -source(file.path(code.dir, "R", "yieldcurve.R")) -source(file.path(code.dir, "R", "serenitasdb.R"), chdir=TRUE) -source(file.path(code.dir, "R", "creditIndex.R")) +stopifnot((root.dir <- Sys.getenv("BASE_DIR")) != "") +stopifnot((code.dir <- Sys.getenv("CODE_DIR")) != "") +source("intex_deal_functions.R") +source("yieldcurve.R") +source("serenitasdb.R") +source("creditIndex.R") if(interactive()) { ## enter the parameters here |