diff options
Diffstat (limited to 'R/load_cf.R')
| -rw-r--r-- | R/load_cf.R | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/R/load_cf.R b/R/load_cf.R index c443152b..8ab40654 100644 --- a/R/load_cf.R +++ b/R/load_cf.R @@ -232,7 +232,6 @@ getcusipcf <- function(cusips, cfdata, dist, workdate=Sys.Date()){ cusipdata[[cusip]] <- NULL
flag <- FALSE
}else{
- cat("done", cusip, "\n")
cusipdata[[cusip]]$fields <- r
cusipdata[[cusip]]$price <- 100 * crossprod(cfdata[[dealnames[i]]]$weight,
cusipdata[[cusip]]$fields[,"Cashflow"])/cusipdata[[cusip]]$currbal
@@ -244,7 +243,7 @@ getcusipcf <- function(cusips, cfdata, dist, workdate=Sys.Date()){ compute.delta(dist, cfdata[[dealnames[i]]]$weight,
cusipdata[[cusip]]$fields[,"Cashflow"]/cusipdata[[cusip]]$currbal,
workdate)
-
+ cat("done", cusip, "\n")
}
}
return(cusipdata)
|