Skip to content
Snippets Groups Projects
Commit b2b8dea6 authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

Fix unearned premiums (factor was calculated with the wrong logic)

parent e01a4b05
Branches
Tags
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
R/InsuranceTarif.R
+ 1
− 1
View file @ b2b8dea6
...@@ -1209,7 +1209,7 @@ InsuranceTarif = R6Class( ...@@ -1209,7 +1209,7 @@ InsuranceTarif = R6Class(
freq = params$ContractData$premiumFrequency freq = params$ContractData$premiumFrequency
bm = month(params$ContractData$contractClosing) bm = month(params$ContractData$contractClosing)
fact = (month(factors$date) - bm + 12 + 1) %% (12/freq) * (freq/12) fact = (bm - month(factors$date) + 12 - 1) %% (12/freq) * (freq/12)
} }
# TODO: We have no vector of actual written premiums (implicit assumption # TODO: We have no vector of actual written premiums (implicit assumption
# seems to be that the premium stays constant!). Once we have such a vector, # seems to be that the premium stays constant!). Once we have such a vector,
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment