El objeto de presente informe es valorar las opciones de renovación para 2020 del contrato de XL MOTOR de la aseguradora CARAVELA.
Se compara el Programa Actual de Reaseguro que tiene una Priodidad de 400.000 EUR con un Programa Alternativo con Prioridad de 600.000, cuantificando sus impactos sobre:
Dicho estudio se ha realizado considerando:
Código | Descripción | Prioridad | Límite | Tasa Nacional Re |
---|---|---|---|---|
Prog_Act | XL Motor | 400.000 EUR | 50.000.000 EUR | 3.095% |
Prog_Alt_1 | XL Motor | 600.000 EUR | 50.000.000 EUR | 2.145% |
Considerando EPIS Motor 2019:
## [1] 36500000
Programa Actual:
## [1] 1129675
Programa ALT. 1:
## [1] 782925
Impacto en Prima XL:
## [1] -346750
Ahora estudiaremos las probabilidades de que el el aumento en los siniestros retenidos sea mayor o menor a este ahorro en Prima XL.
Density Function Siniestralidad Anual Cedida en cada Programa.
Num_Sim <- 3000
set.seed(12)
ds <- data.frame(years=1:Num_Sim, num_siniestros_anual=rnbinom(n=Num_Sim, mu=19.8042, size=12.4558))
set.seed(12)
Factor_Ajuste <- 1.2852
rgpd_val <- sapply(1:Num_Sim, FUN = function (i) {set.seed(123+i); as.numeric(pmin(fExtremes::rgpd(n=ds$num_siniestros_anual[i], xi=0.3481764, mu=65000, beta=79741.78*Factor_Ajuste), 50000000))})
rgpd_ret_Act <- sapply(1:Num_Sim, function (i) {pmin(rgpd_val[i][[1]],400000)})
rgpd_ret_Alt_1 <- sapply(1:Num_Sim, function (i) {pmin(rgpd_val[i][[1]],600000)})
sin_sim_ret_Act <- sapply(rgpd_ret_Act, FUN=sum)
sin_sim_ret_Alt_1 <- sapply(rgpd_ret_Alt_1, FUN=sum)
sin_sim_dir <- sapply(rgpd_val, FUN=sum)
num_sin_sim <- sapply(rgpd_val, FUN=length)
sin_sim_Ced_Act <- sin_sim_dir - sin_sim_ret_Act
sin_sim_Ced_Alt_1 <- sin_sim_dir - sin_sim_ret_Alt_1
Quantile Siniestralidad Anual Cedida Programa Actual:
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0 115208 427832 751627 1015303 46669759
Quantile Siniestralidad Anual Cedida Programa Alt.1:
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0 0 101487 446597 545357 46469759
Impactos (Siniestros Cedidos Prog_Alt_1 - Siniestros Cedidos Prog_Act):
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -1315067 -439154 -246608 -305030 -115208 0
## [1] "De media, cambiando al Prog_Alt_1, la cesión se reduce en -305030 EUR."
## [1] "En el peor escenario, con el cambio al Prog_Alt_1, la retención de siniestros se incrmentaría en 1315067 EUR."
# % Simulaciones con cesión siniestros Prog.Act = cesión Prog_Alt_1 (es decir, sin siniestros que alcancen la prioridad del Prog. Actual):
# En estos escenarios, el impacto en resultado sería equivalente a la reducción en la Prima XL.
(sum(sin_sim_Ced_Alt_1 == 0 & sin_sim_Ced_Act == 0)/Num_Sim)
## [1] 0.1286667
# % Simulaciones en que el Incremento de Retención al cambiar al Prog_Alt_1 supera el decremento en la Prima_XL:
# Por tanto es el % de escenarios,en los que no nos interesaría cambiar de Programa.
(sum((sin_sim_Ced_Alt_1 - sin_sim_Ced_Act) < Dif_Prima_XL)/Num_Sim)
## [1] 0.3916667
Distribucion de las Diferencias en la Cesion de Siniestros en función del Numero de Siniestros Graves:
Gráfico 1: Diferencias entres las Cesiones de Siniestros en ambos Programas.
Presentado en BoxPlot agrupando las Simulaciones según su Numero de Siniestros Graves (>65.000EUR).
La linea roja representa el ahorro en Prima XL.
Gráfico 2: Porcentaje de Simulaciones con “X” Número de Siniestros.
Gráfico 3: Porcentaje de Simulaciones acumulado con “X” Número de Siniestros.
## [1] "Dentro de las simulaciones de siniestros en las que no nos interesaría el cambio, el escenario que más se repite es encontramos con 2 o más siniestros de importe superior a 573375."
La proabilidad de que esto ocurra es:
# Probabilidad de obtener 1 siniestro grave GPD > a este importe:
p1 <- fExtremes::pgpd(400000+(346750/2),xi=0.3481764, mu=65000, beta=79741.78*1.2852, lower.tail = FALSE)
# Probabilidad de obtener 2 o más (mas de 1) en una misma anualidad:
p2 <- pbinom(1, size=19, prob=p1, lower.tail=FALSE)
p2
## [1] 0.2887459
# Coste de Reaseguro Medio Programa Actual:
(Coste_Reas_Med_Prog_Act <- mean(PrimaXL_Act - sin_sim_Ced_Act))
## [1] 378048.4
# Coste de Reaseguro Medio Programa Alt_1:
(Coste_Reas_Med_Prog_Alt_1 <- mean(PrimaXL_Alt_1 - sin_sim_Ced_Alt_1))
## [1] 336328.3
# Impacto Medio en Coste Reaseguro (cambiando al Prog_Alt_1):
(Impacto_Med_Coste_Reas <- (Coste_Reas_Med_Prog_Alt_1 - Coste_Reas_Med_Prog_Act))
## [1] -41720.1
# Distribución de los Impactos:
impactos <- (PrimaXL_Alt_1 - sin_sim_Ced_Alt_1)-(PrimaXL_Act - sin_sim_Ced_Act)
(dist_imp <- summary(impactos))
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -346750 -231542 -100142 -41720 92404 968317
## [1] "De media, la Coste de Reaseguro se reduce en -41720 EUR."
## [1] "Cambiando al Prog_Alt_1, se reduce el Coste de Reaseguro en el 0.6083 de las Simulaciones."
## [1] "En los escenarios en que el cambio supone un mayor Coste de Reaseguro, este coste se incrementa de media en 208045 EUR y el máximo aumento es de 968317 EUR."
## [1] "El mayor decremento en Coste de Reaseguro es el que equivale al ahorro en la Prima XL (346750 EUR) y sucede en el 0.1287 de las Simulaciones, que son aquellos escenarios en que ningún siniestro alcanza la Prioridad del Prog_Act."
Con estos supuestos y considerenado los siniestros reales de Caravela, el cambio al Prog_Alt_1 hubiera supuesto un menor Coste de Reaseguro de 28.000 EUR, en promedio.
El cambio al Prog_Alt_1 hubiera supuesto un mayor Coste de Reaseguro en 9 de las últimas 22 anualidades (40%). De ellas, la peor anualidad es 2008 en la que este Coste se hubiera incrementado en 360.000 EUR.
Impactos SCR sólo a los efectos de comparar los distintos Programas de Reaseguro.
Se detalla el SCR de los siguientes módulos de Riesgo:
Cambiar al Prog_Alt_1 supone un incremento en el SCR (fórmula estandar) de 57.000 EUR, considerando el SCR Final tras aplicar las correlaciones entre los riesgos analizados.
El valor extreno (100%) representa lo más beneficioso para la Cedente.