{"word_count": 493, "character_count": 5536}
La première partie du cours ACT2040 portera sur la tarification (a priori) de contrats d'assurance automobile. Le premier jeu de données sera une base de sinistres&#62; sinistre=read.table("http://freakonometrics.free.fr/sinistreACT2040.txt",+ header=TRUE,sep=";")&#62; sinistres=sinistre[sinistre$garantie=="1RC",]&#62; sinistres=sinistres[sinistres$cout&#62;0,](on va se limiter aux sinistres associés à une garantie RC, responsabilité civile) et une base de contrats&#62; contrat=read.table("http://freakonometrics.free.fr/contractACT2040.txt",+ header=TRUE,sep=";")On peut ensuite compter les nombres de sinistres, par contrat, et fusionner les bases,&#62; T=table(sinistres$nocontrat)&#62; T1=as.numeric(names(T))&#62; T2=as.numeric(T)&#62; nombre1 = data.frame(nocontrat=T1,nbre=T2)&#62; I = contrat$nocontrat%in%T1&#62; T1= contrat$nocontrat[I==FALSE]&#62; nombre2 = data.frame(nocontrat=T1,nbre=0)&#62; nombre=rbind(nombre1,nombre2)&#62; sinistres = merge(contrat,nombre)La base ressemble à&#62; head(sinistres)  nocontrat exposition zone puissance agevehicule ageconducteur bonus marque1        27       0.87    C         7           0            56    50     122       115       0.72    D         5           0            45    50     123       121       0.05    C         6           0            37    55     124       142       0.90    C        10          10            42    50     125       155       0.12    C         7           0            59    50     126       186       0.83    C         5           0            75    50     12  carburant densite region nbre1         D      93     13    02         E      54     13    03         D      11     13    04         D      93     13    05         E      73     13    06         E      42     13    0Le second jeu de données sera utilisé en démonstration. Comme auparavant, on a une base de fréquence de sinistres (nombre de sinistres pendant la période de couverture)&#62; baseFREQ=read.table(+ "http://freakonometrics.free.fr/baseFREQ.csv",+ sep=";",header=TRUE,encoding="latin1")+ tail(baseFREQ)      numeropol  debut_pol    fin_pol freq_paiement langue  type_prof39070     88942 2003-03-31 2004-03-30       mensuel      A   Actuaire39071     88945 2003-03-21 2004-03-20        annuel      A Technicien39072     88972 2003-03-18 2004-03-17       mensuel      F Technicien39073     88981 2003-03-19 2004-03-18       mensuel      A Technicien39074     88986 2004-02-28 2005-02-27       mensuel      A    Médecin39075     89009 2003-03-24 2004-03-23       mensuel      A Technicien      alimentation type_territoire         utilisation presence_alarme39070    Carnivore          Urbain Travail-occasionnel             oui39071   Végétalien          Urbain Travail-occasionnel             oui39072   Végétarien     Semi-urbain   Travail-quotidien             non39073   Végétalien          Urbain Travail-occasionnel             oui39074    Carnivore          Urbain   Travail-quotidien             oui39075   Végétarien          Urbain Travail-occasionnel             non      marque_voiture sexe cout1 cout2 cout3 cout4 nbsin exposition cout age39070            BMW    M    NA    NA    NA    NA     0          1       4539071         TOYOTA    M    NA    NA    NA    NA     0          1       2439072        PEUGEOT    M    NA    NA    NA    NA     0          1       5839073         SUZUKI    F    NA    NA    NA    NA     0          1       2339074           FIAT    M    NA    NA    NA    NA     0          1       4139075         TOYOTA    M    NA    NA    NA    NA     0          1       58      duree_permis annee_vehicule39070           30           198939071            5           200039072           33           200339073            5           199839074           19           198939075           37           2003et une base pour les coûts de sinistres,&#62; baseCOUT=read.table(+ "http://freakonometrics.free.fr/baseCOUT.csv",+ sep=";",header=TRUE,encoding="latin1")+ tail(baseCOUT)     numeropol  debut_pol    fin_pol freq_paiement langue  type_prof6510     87204 2002-09-25 2003-09-24       mensuel      A Technicien6511     87210 2002-10-11 2003-10-10       mensuel      A Technicien6512     87291 2002-10-16 2003-01-22       mensuel      A Professeur6513     87301 2002-10-01 2003-09-30       mensuel      A Technicien6514     87417 2002-10-24 2003-10-21       mensuel      F Technicien6515     88128 2003-01-17 2004-01-16       mensuel      F     Avocat     alimentation type_territoire         utilisation presence_alarme6510    Carnivore          Urbain Travail-occasionnel             non6511    Carnivore          Urbain   Travail-quotidien             non6512   Végétarien          Urbain Travail-occasionnel             oui6513   Végétarien          Urbain              Loisir             oui6514   Végétalien     Semi-urbain Travail-occasionnel             non6515   Végétarien     Semi-urbain              Loisir             non     marque_voiture sexe exposition age duree_permis age_vehicule i   coutsin6510             GM    M  0.9972603  36           18           11 1  884.34786511           AUDI    M  0.9972603  50           31           14 1  503.34786512           FORD    M  0.2684932  47           29           28 1 1274.59016513          HONDA    M  0.9972603  44           24           25 1  278.07456514     VOLKSWAGEN    F  0.9917808  23            3           11 1  403.12426515           FIAT    F  0.9972603  23            4           11 1  230.9565D'autres petites bases seront probablement mise en ligne durant le cours.