# NOT RUN {
p_BNCOMP(x = 2, size = 1, prob = 0.2, shape = log(1000) - 0.405,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
E_BNCOMP(size = 4, prob = 0.2, shape = 0, scale = 1,
distr_severity = "Lognormal")
V_BNCOMP(size = 1, prob = 0.2, shape = log(1000) - 0.405, rate = 0.9^2,
distr_severity = "Lognormale")
VaR_BNCOMP(kap = 0.9, size = 1, prob = 0.2, shape = 0.59,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
vark_calc <- VaR_BNCOMP(kap = 0.9, size = 1, prob = 0.2, shape = 0.59,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
TVaR_BNCOMP(kap = 0.9, size = 1, prob = 0.2, shape = 0.59, rate = 0.9^2,
vark = vark_calc, k0 = 1E2, distr_severity = "Gamma")
# }
Run the code above in your browser using DataLab