diff options
Diffstat (limited to 'cds_utils.R')
| -rw-r--r-- | cds_utils.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cds_utils.R b/cds_utils.R index 84485965..f9e6be03 100644 --- a/cds_utils.R +++ b/cds_utils.R @@ -76,7 +76,7 @@ couponSchedule <- function(nextpaydate=NULL, maturity, frequency, coupontype, cu }else{
dates <- seq(nextpaydate, maturity, by = bystring)
}
- if(dates[length(dates)<maturity){
+ if(dates[length(dates)]<maturity){
dates <- c(dates, maturity)
}
dates <- dates[ dates >= today()]
|