diff options
| -rw-r--r-- | R/cds_utils.R | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/R/cds_utils.R b/R/cds_utils.R index 09e07960..f97e00c2 100644 --- a/R/cds_utils.R +++ b/R/cds_utils.R @@ -75,7 +75,9 @@ couponSchedule <- function(nextpaydate=NULL, maturity, frequency, coupontype, cu }
}
dates <- dates[ dates >= tradedate]
- dates <- adjust(calendar="UnitedStates/GovernmentBond", dates)
+ if(length(dates)>0){
+ dates <- adjust(calendar="UnitedStates/GovernmentBond", dates)
+ }
if(length(dates)==0){
dates <- maturity
}else{
|