diff options
| -rw-r--r-- | R/calibrate_tranches_BC.R | 2 | ||||
| -rw-r--r-- | R/serenitasdb.R | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/R/calibrate_tranches_BC.R b/R/calibrate_tranches_BC.R index 73747715..e0189df6 100644 --- a/R/calibrate_tranches_BC.R +++ b/R/calibrate_tranches_BC.R @@ -145,7 +145,7 @@ for(run in config$runs) { cat(csvheaders(index), sep="\n", file=filename) } cat(tocsv(index), sep="\n", file=filename, append=TRUE) - tryCatch(dbWriteTable(serenitasdb, "risk_numbers_new", + tryCatch(dbWriteTable(serenitasdb, "risk_numbers_old", as.data.frame(index), append=TRUE), error = function(e) logerror(e$message)) loginfo("done") diff --git a/R/serenitasdb.R b/R/serenitasdb.R index 36a0b6d8..e3b075d6 100644 --- a/R/serenitasdb.R +++ b/R/serenitasdb.R @@ -96,7 +96,7 @@ couponfromindex <- function(indexname, tenor){ } getlastdate <- function(indexname, tenor){ - stmt <- paste("SELECT max(date)+1 AS date FROM risk_numbers_new", + stmt <- paste("SELECT max(date)+1 AS date FROM risk_numbers_old", "WHERE index=$1 and series=$2 and tenor=$3") r <- with(indexsplit(indexname), dbGetQuery(serenitasdb, stmt, params = |