diff options
Diffstat (limited to 'R/cds_functions_generic.R')
| -rw-r--r-- | R/cds_functions_generic.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/cds_functions_generic.R b/R/cds_functions_generic.R index 10eebacd..0e559304 100644 --- a/R/cds_functions_generic.R +++ b/R/cds_functions_generic.R @@ -188,7 +188,7 @@ setMethod("cdsduration", signature("abstractcurve", "Date"), function(sc, maturity, accruedondefault=TRUE){
stopifnot(is.logical(accruedondefault))
cs <- couponSchedule(nextIMMDate(Sys.Date()), maturity, "Q", "FIXED", 1)
- couponleg(cs, sc, accruedondefault)
+ couponleg(cs, sc, accruedondefault=accruedondefault)
})
## define defaultleg generic
@@ -557,14 +557,14 @@ portfoliospread <- function(portfolio, maturity){ ## for a given maturity.
## if maturity is missing, we use the intrinsic maturity for each curve
S <- 0
- d <- rep(0, length(portfolio$SC))
+ d <- rep_len(0, length(portfolio$SC))
## Svec <- rep(0, length(portfolio$SC))
if(missing(maturity)){
maturityvec <- as.Date(sapply(portfolio$SC, creditcurve.maturity), origin="1970-01-01")
}else{
maturityvec <- rep(maturity, length(portfolio$SC))
}
- for(i in 1:length(portfolio$SC)){
+ for(i in seq.int(portfolio$SC)){
if(length(portfolio$SC[[i]]@curve@hazardrates)==0||maturityvec[i]<=portfolio$SC[[i]]@startdate){
S <- S + 0
d[i] <- 0
|