pCompPois(x = 2, lambda = 2, shape = log(1000) - 0.405,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
expValCompPois(lambda = 2, shape = log(1000) - 0.405, rate = 0.9^2,
distr_severity = "Lognormale")
varCompPois(lambda = 2, shape = log(1000) - 0.405, rate = 0.9^2,
distr_severity = "Lognormale")
VatRCompPois(kap = 0.9, lambda = 2, shape = log(1000) - 0.405,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
vark_calc <- VatRCompPois(kap = 0.9, lambda = 2, shape = 0.59,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
TVatRCompPois(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