diff options
Diffstat (limited to 'R/build_scenarios.R')
| -rw-r--r-- | R/build_scenarios.R | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/R/build_scenarios.R b/R/build_scenarios.R index a0187762..c484adde 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -10,10 +10,10 @@ if(hostname=="debian"){ args <- commandArgs(trailingOnly=TRUE) -if(.Platform$OS.type == "unix"){ - root.dir <- "/home/share/CorpCDOs" -}else{ - root.dir <- "//WDSENTINEL/share/CorpCDOs" +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") @@ -47,7 +47,7 @@ Ngrid <- 201 support <- seq(0, 1, length = Ngrid) n.scenarios <- 100 recov.adj <- 1 -params <- yaml.load_file(file.path(root.dir, "code", "etc", "params.yml")) +params <- yaml.load_file(file.path(code.dir, "etc", "params.yml")) for(j in seq_along(dealnames)){ load(file.path(root.dir, "Scenarios", paste("Portfolios", tradedate, sep="_"), |