diff --git a/R/InsuranceTarif.R b/R/InsuranceTarif.R index 85b231c575e42d6ac3e4de03b9831ba098f2bd45..c7f5be841905fe351cf6c9716cbe5c3a54f87068 100644 --- a/R/InsuranceTarif.R +++ b/R/InsuranceTarif.R @@ -1209,7 +1209,7 @@ InsuranceTarif = R6Class( freq = params$ContractData$premiumFrequency 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 # seems to be that the premium stays constant!). Once we have such a vector,