diff options
| -rw-r--r-- | R/intex_deal_functions.R | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/R/intex_deal_functions.R b/R/intex_deal_functions.R index aa3e791c..7d48dfff 100644 --- a/R/intex_deal_functions.R +++ b/R/intex_deal_functions.R @@ -195,6 +195,7 @@ buildSC <- function(line.item, reinvdate, dealmaturity, global.params, startdate SC<- stackcurve(SC, line.item, global.params, SC@startdate)
}else if(line.item$maturity <= startdate){#matured asset
SC <- buildSC.matured(SC, line.item, reinvdate, dealmaturity, global.params, startdate)
+ if(is.na(line.item$price))line.item$price <- 100
}else if(is.na(line.item$price)){ #missing price
SC <- stackcurve(SC, line.item, global.params, SC@startdate)
cs <- couponSchedule(line.item$nextpaydate, line.item$maturity,
|