ExcessEPD {ReIns} | R Documentation |
Estimates for excess-loss premiums using EPD estimates
Description
Estimate premiums of excess-loss reinsurance with retention and limit
using EPD estimates.
Usage
ExcessEPD(data, gamma, kappa, tau, R, L = Inf, warnings = TRUE, plot = TRUE, add = FALSE,
main = "Estimates for premium of excess-loss insurance", ...)
Arguments
data |
Vector of |
gamma |
Vector of |
kappa |
Vector of |
tau |
Vector of |
R |
The retention level of the (re-)insurance. |
L |
The limit of the (re-)insurance, default is |
warnings |
Logical indicating if warnings are displayed, default is |
plot |
Logical indicating if the estimates should be plotted as a function of |
add |
Logical indicating if the estimates should be added to an existing plot, default is |
main |
Title for the plot, default is |
... |
Additional arguments for the |
Details
We need that , the
-th largest observation.
If this is not the case, we return
NA
for the premium. A warning will be issued in
that case if warnings=TRUE
.
The premium for the excess-loss insurance with retention and limit
is given by
where is the premium of the excess-loss insurance with retention
. When
, the premium is equal to
.
We estimate by
with and
the estimates for the parameters of the EPD.
See Section 4.6 of Albrecher et al. (2017) for more details.
Value
A list with following components:
k |
Vector of the values of the tail parameter |
premium |
The corresponding estimates for the premium. |
R |
The retention level of the (re-)insurance. |
L |
The limit of the (re-)insurance. |
Author(s)
Tom Reynkens
References
Albrecher, H., Beirlant, J. and Teugels, J. (2017). Reinsurance: Actuarial and Statistical Aspects, Wiley, Chichester.
See Also
Examples
data(secura)
# EPD estimator
epd <- EPD(secura$size)
# Premium of excess-loss insurance with retention R
R <- 10^7
ExcessEPD(secura$size, gamma=epd$gamma, kappa=epd$kappa, tau=epd$tau, R=R, ylim=c(0,2*10^4))