diff --git a/R/InsuranceContract.R b/R/InsuranceContract.R index 7ca48ea9a8b78b403b463184be023223c293b4b0..eb5b116fa9687adca9399e0703116e20ecdf84cd 100644 --- a/R/InsuranceContract.R +++ b/R/InsuranceContract.R @@ -152,6 +152,8 @@ InsuranceContract = R6Class( params$t = t params$id = id + # Override with arguments explicitly given + params[names(args)] = args[names(args)] params$comment = sprintf("Dynamic increase at time %d to sum %d", t, NewSumInsured) do.call(self$addBlock, params) },