diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/load_cf.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/R/load_cf.R b/R/load_cf.R index 58769094..f3b41010 100644 --- a/R/load_cf.R +++ b/R/load_cf.R @@ -279,6 +279,10 @@ cfdata <- getdealcf(dealnames, workdate) availablecusips <- cusips[dealnamefromcusip(cusips) %in% names(cfdata)]
load(file.path(root.dir, "Scenarios", "Calibration", sprintf("marketdata-%s.RData", calibration.date)))
cusipdata <- getcusipcf(availablecusips, cfdata, dist, workdate)
+save.dir <- file.path(root.dir, "Scenarios", paste0("Prices_", workdate))
+save(cusipdata, cfdata, file=file.path(save.dir, "cashflows.RData"),
+ compress="xz")
+
## upload wapbasis
for(dealname in names(cfdata)){
sqlstring <- sprintf(paste0("UPDATE et_deal_model_numbers SET ",
@@ -289,10 +293,6 @@ for(dealname in names(cfdata)){ dbSendQuery(dbCon, sqlstring)
}
-save.dir <- file.path(root.dir, "Scenarios", paste0("Prices_", workdate))
-save(cusipdata, cfdata, file=file.path(save.dir, "cashflows.RData"),
- compress="xz")
-
## upload model data
for(cusip in names(cusipdata)){
sqlstring <- sprintf(paste0("SELECT updatedate from et_cusip_model_numbers",
|