diff --git a/R/InsuranceTarif.R b/R/InsuranceTarif.R index 37077eb02df85d7fa24e7f7130174d57713c4a75..47820b352f7e15b0ef58bff2b7e4320b2bb52bcc 100644 --- a/R/InsuranceTarif.R +++ b/R/InsuranceTarif.R @@ -753,7 +753,7 @@ InsuranceTarif = R6Class( q = self$getTransitionProbabilities(params, values); i = params$ActuarialBases$i v = 1/(1 + i) - pvf = PVfactory(qx = q, v = v) + pvf = PVfactory$new(qx = q, v = v) costs = values$cashFlowsCosts; pvc = costs * 0; @@ -788,10 +788,10 @@ InsuranceTarif = R6Class( # Guaranteed + Survival + Death cover + disease pvc[,,"Benefits",] = - pvf$guaranteed(cf$guaranteed_advance * cfCosts, cf$guaranteed_arrears * cfCosts) + - pvf$survival(cf$survival_advance * cfCosts, cf$survival_arrears * cfCosts) + - pvf$death(cf$death_SumInsured * cfCosts) + - pvf$disease(cf$disease_SumInsured * cfCosts); + pvfben$guaranteed(cf$guaranteed_advance * cfCosts, cf$guaranteed_arrears * cfCosts) + + pvfben$survival(cf$survival_advance * cfCosts, cf$survival_arrears * cfCosts) + + pvfben$death(cf$death_SumInsured * cfCosts) + + pvfben$disease(cf$disease_SumInsured * cfCosts); } applyHook(hook = params$Hooks$adjustPresentValuesCosts, val = pvc, params = params, values = values, presentValues = presentValues)