# NOT RUN {
p_PCOMP(x = 2, lambda = 2, shape = log(1000) - 0.405,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
E_PCOMP(lambda = 2, shape = log(1000) - 0.405, rate = 0.9^2,
distr_severity = "Lognormale")
V_PCOMP(lambda = 2, shape = log(1000) - 0.405, rate = 0.9^2,
distr_severity = "Lognormale")
VaR_PCOMP(kap = 0.9, lambda = 2, shape = log(1000) - 0.405,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
vark_calc <- VaR_PCOMP(kap = 0.9, lambda = 2, shape = 0.59,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
TVaR_PCOMP(kap = 0.9, lambda = 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