diff options
Diffstat (limited to 'R/cds_functions_generic.R')
| -rw-r--r-- | R/cds_functions_generic.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/cds_functions_generic.R b/R/cds_functions_generic.R index 155b5024..08b5f508 100644 --- a/R/cds_functions_generic.R +++ b/R/cds_functions_generic.R @@ -485,7 +485,7 @@ bondhazardrate.shaped <- function(collateral, shape, R=0.4, alpha=0.25, beta=15) }
sc@h <- sc@h+dh
counter <- counter+1
- if(counter>=100){
+ if(counter >= 100){
return( NULL )
stop("didn't reach convergence")
}
|