From 554c2979053831400576c77c89c1af51dd924be6 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Sun, 3 Jan 2021 02:00:40 +0100
Subject: [PATCH] Revert setting gamma_nopremiums in initializeCosts when gamma
is set.
---
R/InsuranceParameters.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/InsuranceParameters.R b/R/InsuranceParameters.R
index 1670c51..82f3035 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)
--
GitLab