# empty cost structure (only 0 costs)
initializeCosts()
# the most common cost types can be given in initializeCosts()
initializeCosts(alpha = 0.04, Zillmer = 0.025, beta = 0.05, gamma.contract = 0.001)
# The same cost structure manually
costs.Bsp = initializeCosts();
costs.Bsp[["alpha", "SumPremiums", "once"]] = 0.04;
costs.Bsp[["Zillmer", "SumPremiums", "once"]] = 0.025;
costs.Bsp[["beta", "GrossPremium", "PremiumPeriod"]] = 0.05;
costs.Bsp[["gamma", "SumInsured", "PolicyPeriod"]] = 0.001;
# The same structure using the setCost() function:
library(magrittr)
costs.Bsp = initializeCosts() %>%
setCost("alpha", "SumPremiums", "once", 0.04) %>%
setCost("Zillmer", "SumPremiums", "once", 0.025) %>%
setCost("beta", "GrossPremium", "PremiumPeriod", 0.05) %>%
setCost("gamma", "SumInsured", "PolicyPeriod", 0.001)
Run the code above in your browser using DataLab