diff options
| -rw-r--r-- | R/load_cf.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/load_cf.R b/R/load_cf.R index 85f0b8b0..08c685e5 100644 --- a/R/load_cf.R +++ b/R/load_cf.R @@ -167,8 +167,8 @@ getdealcf <- function(dealnames, zipfiles, tradedate=Sys.Date()){ getcusipcf <- function(params, cfdata, dist, tradedate=Sys.Date()){
cusipdata <- list()
cusips <- keys(params$cusips)
- cusips <- cusips[dealnamefromcusip(cusips) %in% names(cfdata)]
dealnames <- dealnamefromcusip(cusips)
+ cusips <- cusips[dealnames %in% names(cfdata)]
n.scenarios <- 100
intexfields <- c("Cashflow", "Principal", "Interest", "Balance",
"Accum Interest Shortfall")
|