diff --git a/R/InsuranceParameters.R b/R/InsuranceParameters.R index 691d60355b420f4bf3cb2fd8cebe73e9530061f0..05baf81a194821aacd05596a293c05bf5c3d9dc9 100644 --- a/R/InsuranceParameters.R +++ b/R/InsuranceParameters.R @@ -492,6 +492,8 @@ InsuranceContract.Values = list( #' reserve) (default: TRUE)} #' \item{\code{$betaGammaInZillmer}}{Whether beta and gamma-costs should be #' included in the Zillmer premium calculation} +#' \item{\code{$gammaInZillmer}}{Whether gamma- (but not beta-) costs should be +#' included in the Zillmer premium calculation} #' \item{\code{$alphaRefundLinear}}{Whether the refund of alpha-costs on #' surrender is linear in t or follows the NPV of an annuity} #' \item{\code{$useUnearnedPremiums}}{Whether unearned premiums should be @@ -649,6 +651,7 @@ InsuranceContract.ParameterDefaults = list( Features = list( # Special cases for the calculations zillmering = TRUE, # Whether the contract uses Zillmering (and bases reserves on the Zillmer reserve as opposed to the adequate reserve) betaGammaInZillmer = FALSE, # Whether beta and gamma-costs should be included in the Zillmer premium calculation + gammaInZillmer = FALSE, # Whether gamma- (but not beta-) costs should be included in the Zillmer premium calculation alphaRefundLinear = TRUE, # Whether the refund of alpha-costs on surrender is linear in t or follows the NPV of an annuity useUnearnedPremiums = isRegularPremiumContract, # Whether unearned premiums should be calculated in the balance sheet reserves. Otherwise, a premium paid at the beginning of the period is added to the reserve for balance-sheet purposes. surrenderIncludesCostsReserves = TRUE, # Whether (administration) cost reserves are paid out on surrender (i.e. included in the surrender value before surrender penalties are applied) diff --git a/R/InsuranceTarif.R b/R/InsuranceTarif.R index bded4ea9b3b2217119bcc57b2d681130b00d21eb..6d556606cfae0f2bd19fbdaeb659419bb2137989 100644 --- a/R/InsuranceTarif.R +++ b/R/InsuranceTarif.R @@ -1018,6 +1018,9 @@ InsuranceTarif = R6Class( if (params$Features$betaGammaInZillmer) { affected = c(affected, "beta", "gamma") } + if (params$Features$gammaInZillmer) { + affected = c(affected, "gamma") + } coeff[["SumInsured"]][["costs"]][affected,"SumInsured", ] = 1; coeff[["SumInsured"]][["costs"]][affected,"SumPremiums", ] = values$unitPremiumSum * premiums[["unit.gross"]]; coeff[["SumInsured"]][["costs"]][affected,"GrossPremium",] = premiums[["unit.gross"]]; diff --git a/man/InsuranceContract.ParameterDefaults.Rd b/man/InsuranceContract.ParameterDefaults.Rd index c8fe4b31e92f74f71d39d40d1908f5e2873b8195..1d54d19209aa28e9ced5b7c3f6e9fc90654ad935 100644 --- a/man/InsuranceContract.ParameterDefaults.Rd +++ b/man/InsuranceContract.ParameterDefaults.Rd @@ -243,6 +243,8 @@ reserves on the Zillmer reserve as opposed to the adequate reserve) (default: TRUE)} \item{\code{$betaGammaInZillmer}}{Whether beta and gamma-costs should be included in the Zillmer premium calculation} +\item{\code{$gammaInZillmer}}{Whether gamma- (but not beta-) costs should be +included in the Zillmer premium calculation} \item{\code{$alphaRefundLinear}}{Whether the refund of alpha-costs on surrender is linear in t or follows the NPV of an annuity} \item{\code{$useUnearnedPremiums}}{Whether unearned premiums should be