From aa83c36b25a0957f42c374be3ebe299eee4dfafa Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Wed, 2 Sep 2020 02:16:20 +0200
Subject: [PATCH] Fix premium composition with advance profit participation
---
R/InsuranceTarif.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/InsuranceTarif.R b/R/InsuranceTarif.R
index 7ed7c9b..aadd520 100644
--- a/R/InsuranceTarif.R
+++ b/R/InsuranceTarif.R
@@ -1195,7 +1195,7 @@ InsuranceTarif = R6Class(
if (!is.null(ppScheme)) {
advanceProfitParticipation = ppScheme$getAdvanceProfitParticipation(params = params, values = values)
}
- afterProfit = afterSumRebate * (1 + advanceProfitParticipation);
+ afterProfit = afterSumRebate * (1 - advanceProfitParticipation);
profits.advance = afterProfit - afterSumRebate;
# unit costs
--
GitLab