diff options
Diffstat (limited to 'R/build_scenarios.R')
| -rw-r--r-- | R/build_scenarios.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/build_scenarios.R b/R/build_scenarios.R index 1d7e7caf..7eb12a4d 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -101,7 +101,7 @@ for(j in seq_along(dealnames)){ if(i==1){ intexrecov[,i] <- recov.adj * (scenariosr[,i]/scenariosd[,1]) }else{ - intexrecov[,i] <- recov.adj * (scenariosr[,i]-scenariosr[,i-1])/(scenariosd[,i]-scenariosd[,i-1]) + intexrecov[,i] <- recov.adj * (scenariosr[,i] - scenariosr[,i-1])/(scenariosd[,i] - scenariosd[,i-1]) } } deal.dates <- getdealschedule(deal.data, "Quarterly") |