pCompNBinom(x = 2, size = 1, prob = 0.2, shape = log(1000) - 0.405,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
expValCompNBinom(size = 4, prob = 0.2, shape = 0, scale = 1,
distr_severity = "Lognormal")
varCompNBinom(size = 1, prob = 0.2, shape = log(1000) - 0.405, rate = 0.9^2,
distr_severity = "Lognormale")
VatRCompNBinom(kap = 0.9, size = 1, prob = 0.2, shape = 0.59,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
vark_calc <- VatRCompNBinom(kap = 0.9, size = 1, prob = 0.2, shape = 0.59,
rate = 0.9^2, k0 = 1E2, distr_severity = "Gamma")
TVatRCompNBinom(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