diff --git a/R/InsuranceContract.R b/R/InsuranceContract.R index eb5b116fa9687adca9399e0703116e20ecdf84cd..19b5d86c5d5fa9d7d2719e72805d5159eb069d8e 100644 --- a/R/InsuranceContract.R +++ b/R/InsuranceContract.R @@ -153,7 +153,8 @@ InsuranceContract = R6Class( params$t = t params$id = id # Override with arguments explicitly given - params[names(args)] = args[names(args)] + arguments = list(...) + params[names(arguments)] = arguments[names(arguments)] params$comment = sprintf("Dynamic increase at time %d to sum %d", t, NewSumInsured) do.call(self$addBlock, params) }, diff --git a/R/InsuranceParameters.R b/R/InsuranceParameters.R index 883686b7e43fd81f6a8cb1b341f0e044e5ed60a1..efe7da56a640eb8f0cb0186a1524f653e3878cce 100644 --- a/R/InsuranceParameters.R +++ b/R/InsuranceParameters.R @@ -119,7 +119,7 @@ InsuranceContract.ParameterDefaults = list( ActuarialBases = list( mortalityTable = NULL, invalidityTable = NULL, - invalidityEndsContract = FALSE, # Whether a claim for disease ends the contract or not + invalidityEndsContract = TRUE, # Whether a claim for disease ends the contract or not i = 0.00, # guaranteed interest rate balanceSheetDate = as.Date("1900-12-31"), # Balance sheet date (for the calculation of the balance sheet reserves, year is irrelevant) balanceSheetMethod = "30/360",