Fix errors

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)
         },

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",