Skip to content
Snippets Groups Projects
Commit 6fd4c0a4 authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

Remove debug values

parent 5a622dca
Branches
Tags
No related merge requests found
...@@ -381,17 +381,16 @@ InsuranceTarif = R6Class( ...@@ -381,17 +381,16 @@ InsuranceTarif = R6Class(
resNet = pvBenefits[,"allBenefits"]*(1+self$loadings$security) - premiums[["net"]] * pvBenefits[,"premiums"]; resNet = pvBenefits[,"allBenefits"]*(1+self$loadings$security) - premiums[["net"]] * pvBenefits[,"premiums"];
BWLminBWP = pvBenefits[,"allBenefits"]*(1+self$loadings$security) - premiums[["net"]] * pvBenefits[,"premiums"]; BWLminBWP = pvBenefits[,"allBenefits"]*(1+self$loadings$security) - premiums[["net"]] * pvBenefits[,"premiums"];
BWZcorr = pvBenefits["0","Zillmer"]/pvBenefits["0", "premiums"]*pvBenefits[,"premiums"]; BWZcorr = pvBenefits["0","Zillmer"]/pvBenefits["0", "premiums"]*pvBenefits[,"premiums"];
# resZ = pvBenefits[,"allBenefits"]*(1+self$loadings$security) - premiums[["net"]] * pvBenefits[,"premiums"] - pvCosts["0", "Zillmer", "SumInsured"]*premiumSum/pvBenefits["0", "premiums"]*pvBenefits[,"premiums"];
resZ=BWLminBWP - BWZcorr; resZ=BWLminBWP - BWZcorr;
#premiums[["Zillmer"]] * pvBenefits[,"premiums"]; #premiums[["Zillmer"]] * pvBenefits[,"premiums"];
res.gamma = (pvCosts[,"gamma", "SumInsured"] - pvCosts["0", "gamma", "SumInsured"]/pvBenefits["0", "premiums"]*pvBenefits[,"premiums"])*sumInsured; res.gamma = pvBenefits[,"gamma"] - pvBenefits["0", "gamma"]/pvBenefits["0", "premiums"]*pvBenefits[,"premiums"]
res.gamma.alt = pvBenefits[,"gamma"] - pvBenefits["0", "gamma"]/pvBenefits["0", "premiums"]*pvBenefits[,"premiums"]
# res.premiumfree = # res.premiumfree =
# res.gamma.premiumfree = # res.gamma.premiumfree =
res = cbind("net"=resNet, "BWLminBWP"=BWLminBWP, "BWZcorr"= BWZcorr, "Zillmer"=resZ, "gamma"=res.gamma, "gamma.alt"=res.gamma.alt#, "Reserve.premiumfree"=res.premiumfree, "Reserve.gamma.premiumfree"=res.gamma.premiumfree); res = cbind("net"=resNet, "Zillmer"=resZ, "gamma"=res.gamma
#, "Reserve.premiumfree"=res.premiumfree, "Reserve.gamma.premiumfree"=res.gamma.premiumfree);
); );
rownames(res) <- rownames(pvBenefits); rownames(res) <- rownames(pvBenefits);
res res
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment