diff options
| -rw-r--r-- | R/build_portfolios.R | 2 | ||||
| -rw-r--r-- | R/calibrate_tranches_MF.R | 2 | ||||
| -rw-r--r-- | R/load_cf.R | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/R/build_portfolios.R b/R/build_portfolios.R index 9481d1f6..ed00f011 100644 --- a/R/build_portfolios.R +++ b/R/build_portfolios.R @@ -27,7 +27,7 @@ if(interactive()) { calibration.date <- addBusDay(workdate, -1) exportYC(calibration.date) -index <- creditIndex("hy33") +index <- creditIndex("hy35") index <- set.index.desc(index, calibration.date) global.params <- yaml.load_file(file.path(code.dir, "etc", "params.yml"), handlers = list(expr = function(x) eval(parse(text = x)))) diff --git a/R/calibrate_tranches_MF.R b/R/calibrate_tranches_MF.R index 77200bc7..e63ded63 100644 --- a/R/calibrate_tranches_MF.R +++ b/R/calibrate_tranches_MF.R @@ -22,7 +22,7 @@ tradedate <- if(length(args) >= 1) as.Date(args[1]) else addBusDay(Sys.Date(), - exportYC(tradedate) ## calibrate HY29 ## calibrate the single names curves -index <- creditIndex("hy33", "5yr") +index <- creditIndex("hy35", "5yr") index <- set.index.desc(index, tradedate) index <- set.singlenamesdata(index, tradedate) ## load tranche data diff --git a/R/load_cf.R b/R/load_cf.R index e1f5de2a..7d42d3ca 100644 --- a/R/load_cf.R +++ b/R/load_cf.R @@ -19,7 +19,7 @@ source("interpweights.R") source("serenitasdb.R") source("creditIndex.R") source("tranche_functions.R") -index <- creditIndex("hy33") +index <- creditIndex("hy35") index <- set.index.desc(index, tradedate) calibration.date <- addBusDay(tradedate, -1) |