diff --git a/R/InsuranceParameters.R b/R/InsuranceParameters.R index 1670c51407696f778dc2a22bb3af37892a1f8ab8..82f303513a3249ff68efb98096f7c372930a3abc 100644 --- a/R/InsuranceParameters.R +++ b/R/InsuranceParameters.R @@ -119,15 +119,15 @@ initializeCosts = function(costs, alpha, Zillmer, beta, gamma, gamma.paidUp, gam } if (!missing(gamma.contract)) { costs = setCost(costs, "gamma", "SumInsured", "PolicyPeriod", gamma.contract) - costs = setCost(costs, "gamma_nopremiums", "SumInsured", "PolicyPeriod", gamma.contract) + # costs = setCost(costs, "gamma_nopremiums", "SumInsured", "PolicyPeriod", gamma.contract) } if (!missing(gamma.afterdeath)) { costs = setCost(costs, "gamma", "SumInsured", "AfterDeath", gamma.afterdeath) - costs = setCost(costs, "gamma_nopremiums", "SumInsured", "AfterDeath", gamma.afterdeath) + # costs = setCost(costs, "gamma_nopremiums", "SumInsured", "AfterDeath", gamma.afterdeath) } if (!missing(gamma.fullcontract)) { costs = setCost(costs, "gamma", "SumInsured", "FullContract", gamma.fullcontract) - costs = setCost(costs, "gamma_nopremiums", "SumInsured", "FullContract", gamma.fullcontract) + # costs = setCost(costs, "gamma_nopremiums", "SumInsured", "FullContract", gamma.fullcontract) } if (!missing(unitcosts)) { costs = setCost(costs, "unitcosts", "Constant", "PremiumPeriod", unitcosts)