diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/build_portfolios.R | 2 | ||||
| -rw-r--r-- | R/build_scenarios.R | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/R/build_portfolios.R b/R/build_portfolios.R index 01b689d7..8ae071d2 100644 --- a/R/build_portfolios.R +++ b/R/build_portfolios.R @@ -104,7 +104,7 @@ for(deal.name in dealnames){ }
save(deal.portfolio, A, S, deal.weights, deal.dates, deal.spread5y,
deal.spreadatmaturity, deal.data, file=file.path(save.dir, paste0(deal.name, ".RData")))
- cat(deal.name, "... done\n", file = stderr())
+ cat(deal.name, "... done\n")
dealupdatedate <- currdealnames$updatedate[currdealnames$dealname %in% deal.name]
if(length(dealupdatedate) && dealupdatedate == workdate){
sqlstring <- sprintf(
diff --git a/R/build_scenarios.R b/R/build_scenarios.R index 41670c80..e089b38f 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -17,7 +17,7 @@ if(length(args) >=2){ reinvflags <- rep(TRUE, length(dealnames))
}else{
data <- read.table(file.path(root.dir, "scripts", "scenarios.txt"))
- dealnames <- data$V1
+ dealnames <- as.character(data$V1)
reinvflags <- data$V2
unlink(file.path(root.dir, "scripts", "scenarios.txt"))
}
|