diff options
| -rw-r--r-- | R/load_cf.R | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/R/load_cf.R b/R/load_cf.R index 64090142..5b719878 100644 --- a/R/load_cf.R +++ b/R/load_cf.R @@ -165,6 +165,7 @@ getcusipcf <- function(params, cfdata, dist, tradedate=Sys.Date()){ cusips <- keys(params$cusips)
dealnames <- dealnamefromcusip(cusips)
cusips <- cusips[dealnames %in% names(cfdata)]
+ dealnames <- dealnames[dealnames %in% names(cfdata)]
n.scenarios <- 100
intexfields <- c("Cashflow", "Principal", "Interest", "Balance",
"Accum Interest Shortfall")
|