TP Assurance Non Vie

Donnees du projet

load("G:/Master 1 Actuariat/semestre 2 act/assurance non vie/GLM/projettarificationiardm1actuariatessfar/freMPL1.rda")
load("G:/Master 1 Actuariat/semestre 2 act/assurance non vie/GLM/projettarificationiardm1actuariatessfar/freMPL2.rda")

# Initialisation des dossiers de travail
dossier="G:/Master 1 Actuariat/semestre 2 act/assurance non vie/projetInit"

dossierData <- paste(dossier,"/01_donnees",sep="")
dossierFigures <- paste(dossier,"/02_figures",sep="")
dossierResultat <- paste(dossier,"/04_resulltats",sep="")

str(freMPL1)

## 'data.frame':    30595 obs. of  22 variables:
##  $ Exposure   : num  0.583 0.2 0.083 0.375 0.5 0.499 0.218 0.75 0.249 0.75 ...
##  $ LicAge     : int  366 187 169 170 224 230 169 232 241 298 ...
##  $ RecordBeg  : Date, format: "2004-06-01" "2004-10-19" ...
##  $ RecordEnd  : Date, format: NA NA ...
##  $ VehAge     : Factor w/ 9 levels "0","1","10+",..: 4 1 2 2 5 5 8 6 7 4 ...
##  $ Gender     : Factor w/ 2 levels "Female","Male": 1 2 1 1 2 2 2 1 1 2 ...
##  $ MariStat   : Factor w/ 2 levels "Alone","Other": 2 1 2 2 2 2 2 2 2 2 ...
##  $ SocioCateg : Factor w/ 37 levels "CSP1","CSP16",..: 1 23 1 1 17 17 21 23 23 21 ...
##  $ VehUsage   : Factor w/ 4 levels "Private","Private+trip to office",..: 3 2 3 3 3 3 2 2 2 2 ...
##  $ DrivAge    : int  55 34 33 34 53 53 32 38 39 43 ...
##  $ HasKmLimit : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ BonusMalus : int  72 80 63 63 72 68 50 57 54 76 ...
##  $ VehBody    : Factor w/ 9 levels "bus","cabriolet",..: 6 4 5 5 9 9 6 6 6 5 ...
##  $ VehPrice   : Factor w/ 26 levels "A","B","C","D",..: 4 11 12 12 12 12 7 2 2 13 ...
##  $ VehEngine  : Factor w/ 6 levels "carburation",..: 5 2 2 2 2 2 5 5 5 5 ...
##  $ VehEnergy  : Factor w/ 4 levels "diesel","eletric",..: 4 1 1 1 1 1 1 4 4 4 ...
##  $ VehMaxSpeed: Factor w/ 10 levels "1-130 km/h","130-140 km/h",..: 5 6 6 6 3 3 5 4 4 8 ...
##  $ VehClass   : Factor w/ 6 levels "0","A","B","H",..: 3 5 5 5 1 1 3 2 2 6 ...
##  $ ClaimAmount: num  0 0 0 0 1419 ...
##  $ RiskVar    : int  15 20 17 17 19 19 19 19 19 10 ...
##  $ Garage     : Factor w/ 3 levels "Collective garage",..: 2 2 2 3 2 2 2 2 2 2 ...
##  $ ClaimInd   : int  0 0 0 0 1 0 1 0 0 0 ...

head(freMPL1)

#df_status(freMPL1)
names(freMPL1)

##  [1] "Exposure"    "LicAge"      "RecordBeg"   "RecordEnd"   "VehAge"     
##  [6] "Gender"      "MariStat"    "SocioCateg"  "VehUsage"    "DrivAge"    
## [11] "HasKmLimit"  "BonusMalus"  "VehBody"     "VehPrice"    "VehEngine"  
## [16] "VehEnergy"   "VehMaxSpeed" "VehClass"    "ClaimAmount" "RiskVar"    
## [21] "Garage"      "ClaimInd"