diff options
Diffstat (limited to 'R/build_scenarios.R')
| -rw-r--r-- | R/build_scenarios.R | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/R/build_scenarios.R b/R/build_scenarios.R index bcd561f4..10099985 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -99,7 +99,9 @@ j <- 1 for(deal.name in dealnames){
load(file.path(root.dir, "Scenarios", paste("Portfolios", workdate, sep="_"),
paste(deal.name, "RData", sep=".")))
-
+ if(is.na(deal.data$"Reinv End Date")){
+ reinvflags[j] <- FALSE
+ }
dp <- A$DP
pp <- A$PP
dpmod <- MFupdate.probC(Z, w, deal.portfolio$beta, dp)
|