diff options
| -rw-r--r-- | R/build_scenarios.R | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/R/build_scenarios.R b/R/build_scenarios.R index 7729eb27..14a6ee25 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -41,7 +41,7 @@ get.reinvassets <- function(dealname){ for(folder in collatfolders){
l = list.files(pattern=filename, folder)
if(length(l)!=0){
- data <- read.table(file.path(folder, filename), header=T, sep="\t", quote="")
+ data <- read.csv(file.path(folder, filename), header=T, sep="\t", quote="")
r$REINV_TBA1 <- data[data[,"ID.Number"]=="REINV_TBA1","Fixed.or.Float"]
r$REINV_TBA2 <- data[data[,"ID.Number"]=="REINV_TBA2","Fixed.or.Float"]
}
@@ -259,6 +259,9 @@ for(j in seq_along(dealnames)){ write.table(100 * reinvprices$bond,
file = file.path(save.dir, paste0(dealnames[j], "-fixedreinvprices.csv")),
row.names=F, col.names=F, sep=",")
+ write.table(cbind(100 * loanprices, 100 * bondprices),
+ file = file.path(save.dir, paste0(dealnames[j], "-reinvprices.csv")),
+ row.names=F, col.names=F, sep=",")
}
save(scenariosd, scenariosr, dist.joint, file=file.path(save.dir, paste0(dealnames[j], ".RData")),
compress="xz")
|