Pour le quatrième devoir d’actuariat IARD 2, on va travailler sur des (vrais) triangles de paiements de compagnies d’assurance. Les données ont été collectées par Glenn Meyers et Peng Shi, et sont en ligne sur http://casact.org/research/…. A partir du ‘code’ de groupe, pour récupérer ses données, il faut utiliser la petite fonction écrite dans le fichier
> source("http://freakonometrics.free.fr/codeACT2040-4.txt")
Par exemple, pour le groupe 10,
> extract.triangle(10)
$triangle.increments
0 1 2 3 4 5 6 7 8 9
1988 1249 2843 4801 6623 8290 10264 1 431 586 714
1989 946 1983 7024 7415 7771 4489 2431 913 638 NA
1990 1765 2978 5111 10617 6285 6898 9628 1 NA NA
1991 1408 3818 4542 11869 3702 6235 6164 NA NA NA
1992 1647 5981 5220 5475 3620 1196 NA NA NA NA
1993 7566 7425 14475 19624 8500 NA NA NA NA NA
1994 2299 4557 17098 37542 NA NA NA NA NA NA
1995 4959 8582 9462 NA NA NA NA NA NA NA
1996 6063 3644 NA NA NA NA NA NA NA NA
1997 6507 NA NA NA NA NA NA NA NA NA
$name
[1] "Federal Ins Co Grp"
$source
[1] "prodliab_pos"
Pour le rapport, je veux avoir le nom de la compagnie, ainsi que la ‘source’ (PP Auto, Workers Compensation,Commercial Auto,Medical Malpractice,Product Liability, ouOther Liability). Pour jouer avec les données, il suffit d’utiliser
> T=extract.triangle(10)$triangle.increments
> T
0 1 2 3 4 5 6 7 8 9
1988 1249 2843 4801 6623 8290 10264 1 431 586 714
1989 946 1983 7024 7415 7771 4489 2431 913 638 NA
1990 1765 2978 5111 10617 6285 6898 9628 1 NA NA
1991 1408 3818 4542 11869 3702 6235 6164 NA NA NA
1992 1647 5981 5220 5475 3620 1196 NA NA NA NA
1993 7566 7425 14475 19624 8500 NA NA NA NA NA
1994 2299 4557 17098 37542 NA NA NA NA NA NA
1995 4959 8582 9462 NA NA NA NA NA NA NA
1996 6063 3644 NA NA NA NA NA NA NA NA
1997 6507 NA NA NA NA NA NA NA NA NA
Il s’agit de triangle d’incréments, la ‘colonne’ de gauche étant l’année de survenance. Je n’ai pas testé toutes les bases, merci de me dire rapidement s’il y a des soucis.