diff --git a/DESCRIPTION b/DESCRIPTION
index 40d74209054a8dadf0bbafbb387cb8d4dae5bfaa..1d9d6c803a7c1aec792ff5cc0f31a9fb54e1091a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -34,7 +34,7 @@ Imports:
pander,
tidyr
License: GPL (>= 2)
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2
Collate:
'HelperFunctions.R'
'InsuranceParameters.R'
diff --git a/R/InsuranceContract.R b/R/InsuranceContract.R
index 43da58d030c0868abfb35ae57b06bd81cf4d7597..c97d976a5983481ae6cec61a187f7302f03ab433 100644
--- a/R/InsuranceContract.R
+++ b/R/InsuranceContract.R
@@ -595,7 +595,7 @@ InsuranceContract = R6Class(
# Shall we re-calculate PV or preserve the old ones???
pv = private$calculatePresentValues()
- pvCost = private$calculatePresentValuesCosts()
+ pvCost = private$calculatePresentValuesCosts(presentValues = pv)
oldPV = self$Values$presentValues
if (preservePastPV) {
# Preserve past present values, i.e. the PV represents the PV
@@ -977,16 +977,16 @@ InsuranceContract = R6Class(
# At least 1 year premium period!
self$Parameters$ContractData$premiumPeriod = max(self$Parameters$ContractData$premiumPeriod, 1);
+ self$Parameters$Loadings$commissionPeriod = valueOrFunction(
+ self$Parameters$Loadings$commissionPeriod,
+ params = self$Parameters, values = self$Values);
+
+
# Evaluate deferral period, i.e. if a function is used, calculate its numeric value from the other parameters
self$Parameters$ContractData$deferralPeriod = valueOrFunction(
self$Parameters$ContractData$deferralPeriod,
params = self$Parameters, values = self$Values);
- #### #
- # COSTS PARAMETERS: can be a function => evaluate it to get the real costs
- #### #
- self$Parameters$Costs = private$evaluateCosts()
-
#### #
# AGES for multiple joint lives:
#### #
@@ -1029,6 +1029,13 @@ InsuranceContract = R6Class(
self$Parameters$ActuarialBases$mortalityTable,
params = self$Parameters, values = self$Values)
+ #### #
+ # COSTS PARAMETERS: can be a function => evaluate it to get the real costs
+ # This needs to be last, as the costs can depend on present values
+ # => mortality table is needed
+ #### #
+ self$Parameters$Costs = private$evaluateCosts()
+
invisible(self)
},
diff --git a/R/InsuranceParameters.R b/R/InsuranceParameters.R
index 1696f23e03083a0cc8675337a1ae493a9e5041b3..99ce13d38384fa188d2415301797b78965412224 100644
--- a/R/InsuranceParameters.R
+++ b/R/InsuranceParameters.R
@@ -43,7 +43,7 @@ setCost = function(costs, type, basis = "SumInsured", frequency = "PolicyPeriod"
#' \describe{
#' \item{CostType:}{alpha, Zillmer, beta, gamma, gamma_nopremiums, unitcosts}
#' \item{Basis:}{SumInsured, SumPremiums, GrossPremium, NetPremium, Constant}
-#' \item{Period:}{once, PremiumPeriod, PremiumFree, PolicyPeriod}
+#' \item{Period:}{once, PremiumPeriod, PremiumFree, PolicyPeriod, CommissionPeriod}
#' }
#' This cost structure can then be modified for non-standard costs using the [setCost()] function.
#' The main purpose of this structure is to be passed to [InsuranceContract] or
@@ -90,12 +90,12 @@ setCost = function(costs, type, basis = "SumInsured", frequency = "PolicyPeriod"
#'
#'
#' @export
-initializeCosts = function(costs, alpha, Zillmer, beta, gamma, gamma.paidUp, gamma.premiumfree, gamma.contract, gamma.afterdeath, gamma.fullcontract, unitcosts, unitcosts.PolicyPeriod) {
+initializeCosts = function(costs, alpha, Zillmer, alpha.commission, beta, gamma, gamma.paidUp, gamma.premiumfree, gamma.contract, gamma.afterdeath, gamma.fullcontract, unitcosts, unitcosts.PolicyPeriod) {
if (missing(costs)) {
dimnm = list(
type = c("alpha", "Zillmer", "beta", "gamma", "gamma_nopremiums", "unitcosts"),
basis = c("SumInsured", "SumPremiums", "GrossPremium", "NetPremium", "Constant", "Reserve"),
- frequency = c("once", "PremiumPeriod", "PremiumFree", "PolicyPeriod", "AfterDeath", "FullContract")
+ frequency = c("once", "PremiumPeriod", "PremiumFree", "PolicyPeriod", "AfterDeath", "FullContract", "CommissionPeriod")
);
costs = array(
0,
@@ -104,7 +104,11 @@ initializeCosts = function(costs, alpha, Zillmer, beta, gamma, gamma.paidUp, gam
);
}
if (!missing(alpha)) {
- costs = setCost(costs, "alpha", "SumPremiums", "once", alpha)
+ costs = setCost(costs, "alpha", "SumPremiums", "once", alpha)
+ }
+ if (!missing(alpha.commission)) {
+ costs = setCost(costs, "alpha", "SumPremiums", "CommissionPeriod", alpha.commission)
+ costs = setCost(costs, "Zillmer", "SumPremiums", "CommissionPeriod", alpha.commission)
}
if (!missing(Zillmer)) {
costs = setCost(costs, "Zillmer","SumPremiums", "once", Zillmer)
@@ -328,6 +332,11 @@ InsuranceContract.Values = list(
#' \item{\code{$deathBenefit}}{The yearly relative death benefit (relative
#' to the initial sum insured); Can be set to a \code{function(len,
#' params, values)}, e.g. \code{deathBenefit = deathBenefit.linearDecreasing}}
+#' \item{\code{$benefitParameter}}{(optional) Tariff-specific parameter to
+#' indicate special benefit conditions (e.g. for non-constant benefits
+#' the initial starting value, or a minimum benefit, etc.). This
+#' parameter is not used automatically, but needs to be processed
+#' by a custom \code{$deathBenefit} function.}
#'
#' \item{\code{$costWaiver}}{The fraction of the costs that are waived (only
#' those cost components that are defined to be waivable, i.e. by
@@ -440,6 +449,10 @@ InsuranceContract.Values = list(
#' \code{list("1" = 0.0, "2" = 0.0, "4" = 0.0, "12" = 0.0)}}
#' \item{\code{$alphaRefundPeriod}}{How long the acquisition costs should be
#' (partially) refunded in case of surrender or premium waiver.}
+#' \item{\code{$commissionPeriod}}{Period, over which the acquisition costs
+#' are charged to the contract (if not fully up-front or over the
+#' whole contract period). This has only an effect for cost definitions
+#' with duration "CommissionPeriod". Default is 5 years.}
#' }
#'
#'
@@ -469,6 +482,10 @@ InsuranceContract.Values = list(
#' gross premium calculation or added after gross premiums. (default: FALSE)}
#' \item{\code{$absPremiumRefund}}{Constant death benefit (typically premium
#' refund of a previous contract), relative to the sum insured.}
+#' \item{\code{$alphaCostsCommission}}{Whether alpha costs over the commision
+#' period are given as their actual yearly value ("actual"), or
+#' whether the given value is the sum ("sum") or the present value
+#' ("presentvalue") over the whole commission period.}
#' }
#'
#' ## Elements of sublist \code{InsuranceContract.ParameterDefault$ProfitParticipation}
@@ -512,6 +529,8 @@ InsuranceContract.Values = list(
#' \item{\code{$adjustCashFlowsCosts}}{Function with signature \code{function(x, params, values, ...)} to adjust the costs cash flows after their setup.}
#' \item{\code{$adjustCosts}}{Function with signature \code{function(costs, params, values, ...)} to adjust the tariff costs after their setup (e.g. contract-specific conditions/waivers, etc.).}
#' \item{\code{$adjustMinCosts}}{Function with signature \code{function(minCosts, costs, params, values, ...)} to adjust the tariff minimum (unwaivable) costs after their setup (e.g. contract-specific conditions/waivers, etc.).}
+#' \item{\code{$adjustPresentValues}}{Adjust the present value vectors that are later used to derive premiums and reserves. \code{function(presentValues, params, values)}}
+#' \item{\code{$adjustPresentValuesCosts}}{Adjust the present value cost vectors used to derive premiums and reserves. \code{function(presentValuesCosts, params, values)}}
#' \item{\code{$adjustPremiumCoefficients}}{Function with signature \code{function(coeff, type, premiums, params, values, premiumCalculationTime)} to adjust the coefficients for premium calculation after their default setup. Use cases are e.g. term-fix tariffs where the Zillmer premium term contains the administration cost over the whole contract, but not other gamma- or beta-costs.}
#' \item{\code{$adjustPVForReserves}}{Adjust the absolute present value vectors used to derive reserves (e.g. when a sum rebate is subtracted from the gamma-cost reserves without influencing the premium calculation). \code{function(absPV, params, values)}}
#' \item{\code{$premiumRebateCalculation}}{Calculate the actual premium rebate from the rebate rate (e.g. when the premium rate is given as a yearly cost reduction applied to a single-premium contract). \code{function(premiumRebateRate, params = params, values = values)}}
@@ -549,6 +568,7 @@ InsuranceContract.ParameterDefaults = list(
premiumIncrease = 1, # The yearly growth factor of the premium, i.e. 1.05 means +5% increase each year; a Vector describes the premiums for all years
annuityIncrease = 1, # The yearly growth factor of the annuity payments, i.e. 1.05 means +5% incrase each year; a vector describes the annuity unit payments for all years
deathBenefit = 1, # The yearly relative death benefit (relative to the initial sum insured); Can be fixed, e.g. 0.5 for 50% death cover, or set to a function(len, params, values) like deathBenefit = deathBenefit.linearDecreasing
+ benefitParameter = NULL, # Tariff-Specific additional parameter to define custom benefits (e.g. a minimum death benefit quota, an initial )
costWaiver = 0, # The cost waiver (up to minCosts, 0=no cost waiver, 1=full cost waiver down to minCosts)
attributes = list() # List of additional attributes with custom meaning (not standardized, but can be used by any tariff to implement custom behavior for certain contracts or slices)
@@ -588,7 +608,8 @@ InsuranceContract.ParameterDefaults = list(
extraChargeGrossPremium = 0, # extra charges on gross premium (smoker, leisure activities, BMI too high, etc.)
benefitFrequencyLoading = NULL, # TODO: Properly implement this as a function
premiumFrequencyLoading = NULL, # TODO: Properly implement this as a function
- alphaRefundPeriod = 5 # How long acquisition costs should be refunded in case of surrender
+ alphaRefundPeriod = 5, # How long acquisition costs should be refunded in case of surrender
+ commissionPeriod = 5
),
Features = list( # Special cases for the calculations
betaGammaInZillmer = FALSE, # Whether beta and gamma-costs should be included in the Zillmer premium calculation
@@ -596,7 +617,8 @@ InsuranceContract.ParameterDefaults = list(
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)
unitcostsInGross = FALSE,
- absPremiumRefund = 0 # Constant death benefit (irrespective of the type of contract), typically a premium refund for a previous contract
+ absPremiumRefund = 0, # Constant death benefit (irrespective of the type of contract), typically a premium refund for a previous contract
+ alphaCostsCommission = "actual" # Whether alpha costs over the commision period are given as their actual yearly value ("actual"), or whether the given value is the sum ("sum") or the present value ("presentvalue") over the whole commission period
),
ProfitParticipation = list(
@@ -628,6 +650,8 @@ InsuranceContract.ParameterDefaults = list(
adjustCashFlowsCosts = NULL,
adjustCosts = NULL,
adjustMinCosts = NULL,
+ adjustPresentValues = NULL, # function(presentValues, params, values)
+ adjustPresentValuesCosts = NULL, # function(presentValuesCosts, params, values)
adjustPremiumCoefficients = NULL, # function(coeff, type = type, premiums = premiums, params = params, values = values, premiumCalculationTime = premiumCalculationTime)
adjustPVForReserves = NULL, # function(absPresentValues, params, values)
premiumRebateCalculation = NULL # function(premiumRebateRate, params = params, values = values)
diff --git a/R/InsuranceTarif.R b/R/InsuranceTarif.R
index 8b60d140c8e5b6d4922fdfa4a713582cff669cd0..51b78a48227f3cdf8a3aa7255373b1c860e75d0a 100644
--- a/R/InsuranceTarif.R
+++ b/R/InsuranceTarif.R
@@ -372,9 +372,9 @@ InsuranceTarif = R6Class(
browser();
}
costs = valueOrFunction(params$Costs, params = params, values = NULL)
- costs = applyHook(params$Hooks$adjustCosts, costs, params = params, values = NULL);
+ costs = applyHook(params$Hooks$adjustCosts, costs, params = params, values = NULL);
baseCost = valueOrFunction(params$minCosts, params = params, values = NULL, costs = costs)
- baseCost = applyHook(params$Hooks$adjustMinCosts, baseCost, costs = costs, params = params, values = NULL);
+ baseCost = applyHook(params$Hooks$adjustMinCosts, baseCost, costs = costs, params = params, values = NULL);
if (!is.null(baseCost)) {
costWaiver = valueOrFunction(params$ContractData$costWaiver, params = params, values = NULL, costs = costs, minCosts = baseCost)
if (is.numeric(costWaiver)) {
@@ -642,6 +642,31 @@ InsuranceTarif = R6Class(
cf[i,,,"after.death"] = params$Costs[,,"AfterDeath"]
}
+ # Costs charged only for a specific time (i.e. acquisition costs / commissions)
+ # There are several conventions to scale alpha costs over the commision period:
+ # a) alpha cost once (i.e. not distributed), not scaled
+ # b) uniformly over the period (i.e. sum of k equal commisions is given as cost)
+ # c) by present value (i.e. present value of k equal commission is given as cost)
+ if (params$Features$alphaCostsCommission == "sum") {
+ params$Costs[,,"CommissionPeriod"] = params$Costs[,,"CommissionPeriod"] / params$Loadings$commissionPeriod
+ } else if (params$Features$alphaCostsCommission == "presentvalue") {
+ # Use yearly constant premiums in advance, irrespective of the actual
+ # contract. This is a simplification, but the actual present values
+ # are calculated later, so for now we just assume standard parameters!
+ len = params$Loadings$commissionPeriod;
+ q = self$getTransitionProbabilities(params);
+ px = pad0(c(1,q$p), len); # by defualt, premiums are in advance, so first payment has 100% probability
+ v = 1/(1 + params$ActuarialBases$i)^((1:len)-1)
+ params$Costs[,,"CommissionPeriod"] = params$Costs[,,"CommissionPeriod"] / sum(cumprod(px)*v)
+ } else if (params$Features$alphaCostsCommission == "actual") {
+ # NOP, nothing to do
+ } else {
+ warning("unrecognized value given for commissionPeriod: ",params$Features$alphaCostsCommission )
+ }
+ for (i in 1:params$Loadings$commissionPeriod) {
+ cf[i,,,"survival"] = cf[i,,,"survival"] + params$Costs[,,"CommissionPeriod"];
+ }
+
# After premiums are waived, use the gamma_nopremiums instead of gamma:
if (params$ContractState$premiumWaiver) {
cf[,"gamma",,"survival"] = cf[,"gamma_nopremiums",,"survival"];
@@ -658,7 +683,7 @@ InsuranceTarif = R6Class(
#' (cash flows already calculated and stored in the \code{cashFlows} data.frame)
#' @details Not to be called directly, but implicitly by the [InsuranceContract] object.
#' @param cashFlows data.frame of cash flows calculated by a call to \href{#method-getCashFlows}{\code{InsuranceTarif$getCashFlows()}}
- presentValueCashFlows = function(cashFlows, params, values) {
+ presentValueCashFlows = function(params, values) {
if (getOption('LIC.debug.presentValueCashFlows', FALSE)) {
browser();
}
@@ -716,14 +741,15 @@ InsuranceTarif = R6Class(
);
rownames(pv) <- pad0(rownames(qq), values$int$l);
- pv
+ applyHook(hook = params$Hooks$adjustPresentValues, val = pv, params = params, values = values)
},
#' @description Calculates the present values of the cost cash flows of the
#' contract (cost cash flows alreay calculated by \href{#method-getCashFlowsCosts}{\code{InsuranceTarif$getCashFlowsCosts()}}
#' and stored in the \code{values} list
#' @details Not to be called directly, but implicitly by the [InsuranceContract] object.
- presentValueCashFlowsCosts = function(params, values) {
+ #' @param presentValues The present values of the insurance claims (without costs)
+ presentValueCashFlowsCosts = function(params, values, presentValues) {
if (getOption('LIC.debug.presentValueCashFlowsCosts', FALSE)) {
browser();
}
@@ -733,7 +759,7 @@ InsuranceTarif = R6Class(
px = pad0(q$p, len);
v = 1/(1 + params$ActuarialBases$i)
pvc = calculatePVCosts(px, qx, values$cashFlowsCosts, v = v);
- pvc
+ applyHook(hook = params$Hooks$adjustPresentValuesCosts, val = pvc, params = params, values = values, presentValues = presentValues)
},
#' @description Calculate the cash flows in monetary terms of the insurance contract
diff --git a/man/InsuranceContract.ParameterDefaults.Rd b/man/InsuranceContract.ParameterDefaults.Rd
index 6060c66bb1d9baf7b7a4f1aab74f1c306cc55e89..81d6b004e9ac3022de9712fb1ce392a93cfb09a8 100644
--- a/man/InsuranceContract.ParameterDefaults.Rd
+++ b/man/InsuranceContract.ParameterDefaults.Rd
@@ -104,6 +104,11 @@ describes the annuity unit payments for all years}
\item{\code{$deathBenefit}}{The yearly relative death benefit (relative
to the initial sum insured); Can be set to a \code{function(len,
params, values)}, e.g. \code{deathBenefit = deathBenefit.linearDecreasing}}
+\item{\code{$benefitParameter}}{(optional) Tariff-specific parameter to
+indicate special benefit conditions (e.g. for non-constant benefits
+the initial starting value, or a minimum benefit, etc.). This
+parameter is not used automatically, but needs to be processed
+by a custom \code{$deathBenefit} function.}
\item{\code{$costWaiver}}{The fraction of the costs that are waived (only
those cost components that are defined to be waivable, i.e. by
@@ -219,6 +224,10 @@ payment frequencies of more than once a year. Format is
\code{list("1" = 0.0, "2" = 0.0, "4" = 0.0, "12" = 0.0)}}
\item{\code{$alphaRefundPeriod}}{How long the acquisition costs should be
(partially) refunded in case of surrender or premium waiver.}
+\item{\code{$commissionPeriod}}{Period, over which the acquisition costs
+are charged to the contract (if not fully up-front or over the
+whole contract period). This has only an effect for cost definitions
+with duration "CommissionPeriod". Default is 5 years.}
}
}
@@ -248,6 +257,10 @@ surrender value before surrender penalties are applied)}
gross premium calculation or added after gross premiums. (default: FALSE)}
\item{\code{$absPremiumRefund}}{Constant death benefit (typically premium
refund of a previous contract), relative to the sum insured.}
+\item{\code{$alphaCostsCommission}}{Whether alpha costs over the commision
+period are given as their actual yearly value ("actual"), or
+whether the given value is the sum ("sum") or the present value
+("presentvalue") over the whole commission period.}
}
}
@@ -293,6 +306,8 @@ participation rates are defined at the level of profit classes.}
\item{\code{$adjustCashFlowsCosts}}{Function with signature \code{function(x, params, values, ...)} to adjust the costs cash flows after their setup.}
\item{\code{$adjustCosts}}{Function with signature \code{function(costs, params, values, ...)} to adjust the tariff costs after their setup (e.g. contract-specific conditions/waivers, etc.).}
\item{\code{$adjustMinCosts}}{Function with signature \code{function(minCosts, costs, params, values, ...)} to adjust the tariff minimum (unwaivable) costs after their setup (e.g. contract-specific conditions/waivers, etc.).}
+\item{\code{$adjustPresentValues}}{Adjust the present value vectors that are later used to derive premiums and reserves. \code{function(presentValues, params, values)}}
+\item{\code{$adjustPresentValuesCosts}}{Adjust the present value cost vectors used to derive premiums and reserves. \code{function(presentValuesCosts, params, values)}}
\item{\code{$adjustPremiumCoefficients}}{Function with signature \code{function(coeff, type, premiums, params, values, premiumCalculationTime)} to adjust the coefficients for premium calculation after their default setup. Use cases are e.g. term-fix tariffs where the Zillmer premium term contains the administration cost over the whole contract, but not other gamma- or beta-costs.}
\item{\code{$adjustPVForReserves}}{Adjust the absolute present value vectors used to derive reserves (e.g. when a sum rebate is subtracted from the gamma-cost reserves without influencing the premium calculation). \code{function(absPV, params, values)}}
\item{\code{$premiumRebateCalculation}}{Calculate the actual premium rebate from the rebate rate (e.g. when the premium rate is given as a yearly cost reduction applied to a single-premium contract). \code{function(premiumRebateRate, params = params, values = values)}}
diff --git a/man/InsuranceContract.Rd b/man/InsuranceContract.Rd
index aeb37c472395b655fc43989260b1adfb2b334c58..d29dca6e33879167341be406e383aabf48548e2c 100644
--- a/man/InsuranceContract.Rd
+++ b/man/InsuranceContract.Rd
@@ -458,7 +458,7 @@ Add a child contract block (e.g. a dynamic increase or a rider) to an insurance
id = NULL,
block = NULL,
t = block$Values$int$blockStart,
- comment = comment,
+ comment = paste0("Additional block at time t=", t),
...
)}\if{html}{\out{</div>}}
}
diff --git a/man/InsuranceTarif.Rd b/man/InsuranceTarif.Rd
index 07f8179e3971e3a1500a17d0139f397ecbb8100c..c00267b95e16f7757961c793a32a3bc1881ebeaa 100644
--- a/man/InsuranceTarif.Rd
+++ b/man/InsuranceTarif.Rd
@@ -616,20 +616,20 @@ Not to be called directly, but implicitly by the \link{InsuranceContract} object
Returns the present values of the cash flows of the contract
(cash flows already calculated and stored in the \code{cashFlows} data.frame)
\subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{InsuranceTarif$presentValueCashFlows(cashFlows, params, values)}\if{html}{\out{</div>}}
+\if{html}{\out{<div class="r">}}\preformatted{InsuranceTarif$presentValueCashFlows(params, values)}\if{html}{\out{</div>}}
}
\subsection{Arguments}{
\if{html}{\out{<div class="arguments">}}
\describe{
-\item{\code{cashFlows}}{data.frame of cash flows calculated by a call to \href{#method-getCashFlows}{\code{InsuranceTarif$getCashFlows()}}}
-
\item{\code{params}}{Contract-specific, full set of parameters of the contract
(merged parameters of the defaults, the tariff, the profit participation
scheme and the contract)}
\item{\code{values}}{Contract values calculated so far (in the \code{contract$Values}
list) then this method is called by the contract object}
+
+\item{\code{cashFlows}}{data.frame of cash flows calculated by a call to \href{#method-getCashFlows}{\code{InsuranceTarif$getCashFlows()}}}
}
\if{html}{\out{</div>}}
}
@@ -646,7 +646,7 @@ Calculates the present values of the cost cash flows of the
contract (cost cash flows alreay calculated by \href{#method-getCashFlowsCosts}{\code{InsuranceTarif$getCashFlowsCosts()}}
and stored in the \code{values} list
\subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{InsuranceTarif$presentValueCashFlowsCosts(params, values)}\if{html}{\out{</div>}}
+\if{html}{\out{<div class="r">}}\preformatted{InsuranceTarif$presentValueCashFlowsCosts(params, values, presentValues)}\if{html}{\out{</div>}}
}
\subsection{Arguments}{
@@ -658,6 +658,8 @@ scheme and the contract)}
\item{\code{values}}{Contract values calculated so far (in the \code{contract$Values}
list) then this method is called by the contract object}
+
+\item{\code{presentValues}}{The present values of the insurance claims (without costs)}
}
\if{html}{\out{</div>}}
}
diff --git a/man/initializeCosts.Rd b/man/initializeCosts.Rd
index 0c3bed60a72edd6128c642b793f6da61b392e77a..3e9b4033b791b2d2e75903f1ca3486a2a8222caa 100644
--- a/man/initializeCosts.Rd
+++ b/man/initializeCosts.Rd
@@ -8,6 +8,7 @@ initializeCosts(
costs,
alpha,
Zillmer,
+ alpha.commission,
beta,
gamma,
gamma.paidUp,
@@ -50,7 +51,7 @@ Initialize a cost matrix with dimensions: {CostType, Basis, Period}, where:
\describe{
\item{CostType:}{alpha, Zillmer, beta, gamma, gamma_nopremiums, unitcosts}
\item{Basis:}{SumInsured, SumPremiums, GrossPremium, NetPremium, Constant}
-\item{Period:}{once, PremiumPeriod, PremiumFree, PolicyPeriod}
+\item{Period:}{once, PremiumPeriod, PremiumFree, PolicyPeriod, CommissionPeriod}
}
This cost structure can then be modified for non-standard costs using the \code{\link[=setCost]{setCost()}} function.
The main purpose of this structure is to be passed to \link{InsuranceContract} or