diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/creditIndex.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/creditIndex.R b/R/creditIndex.R index 3d2c8681..68986e81 100644 --- a/R/creditIndex.R +++ b/R/creditIndex.R @@ -29,7 +29,7 @@ creditIndex <- function(name, tenor="5yr", Z=gh$Z, w=gh$w, N=Ngrid) { } c.creditIndex <- function(..., recursive = FALSE){ - structure(c(unlist(lapply(list(...), unclass), recursive=FALSE)), class="creditIndex") + structure(c(unlist(lapply(list(...), unclass), recursive=recursive)), class="creditIndex") } print.creditIndex <- function(index){ |