Commit 85066e52 authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

initializeCosts should also set gamma_nopremiums for administration costs that...

initializeCosts should also set gamma_nopremiums for administration costs that run until the end of the contract irrespective of death.
parent 3e3bcf75
......@@ -119,12 +119,15 @@ initializeCosts = function(costs, alpha, Zillmer, beta, gamma, gamma.paidUp, gam
}
if (!missing(gamma.contract)) {
costs = setCost(costs, "gamma", "SumInsured", "PolicyPeriod", gamma.contract)
costs = setCost(costs, "gamma_nopremiums", "SumInsured", "PolicyPeriod", gamma.contract)
}
if (!missing(gamma.afterdeath)) {
costs = setCost(costs, "gamma", "SumInsured", "AfterDeath", gamma.afterdeath)
costs = setCost(costs, "gamma_nopremiums", "SumInsured", "AfterDeath", gamma.afterdeath)
}
if (!missing(gamma.fullcontract)) {
costs = setCost(costs, "gamma", "SumInsured", "FullContract", gamma.fullcontract)
costs = setCost(costs, "gamma_nopremiums", "SumInsured", "FullContract", gamma.fullcontract)
}
if (!missing(unitcosts)) {
costs = setCost(costs, "unitcosts", "Constant", "PremiumPeriod", unitcosts)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment