Seguros
Ivanna Garza A01283759
2022-09-06
Conocer BD
Identificar la base de datos
bd <- read.csv("/Users/ivannagarza/Desktop/TEC/7 SEMESTRE/MODULO3/seguros.csv")Limpiar nombres de las columnas
# install.packages("janitor")
library("janitor")##
## Attaching package: 'janitor'## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.testbd<- clean_names(bd)Entender la base de datos
resumen <- summary(bd)
resumen## claim_id total_paid total_reserves total_recovery
## Min. : 777632 Min. : 0 Min. : 0 Min. : 0.00
## 1st Qu.: 800748 1st Qu.: 83 1st Qu.: 0 1st Qu.: 0.00
## Median : 812128 Median : 271 Median : 0 Median : 0.00
## Mean : 1864676 Mean : 10404 Mean : 3368 Mean : 66.05
## 3rd Qu.: 824726 3rd Qu.: 1122 3rd Qu.: 0 3rd Qu.: 0.00
## Max. :62203364 Max. :4527291 Max. :1529053 Max. :100000.00
##
## indemnity_paid other_paid total_incurred_cost claim_status
## Min. : 0 Min. : 0 Min. : -10400 Length:31619
## 1st Qu.: 0 1st Qu.: 80 1st Qu.: 80 Class :character
## Median : 0 Median : 265 Median : 266 Mode :character
## Mean : 4977 Mean : 5427 Mean : 13706
## 3rd Qu.: 0 3rd Qu.: 1023 3rd Qu.: 1098
## Max. :640732 Max. :4129915 Max. :4734750
##
## incident_date incident_description return_to_work_date
## Length:31619 Length:31619 Length:31619
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## claimant_opened_date claimant_closed_date employer_notification_date
## Length:31619 Length:31619 Length:31619
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
## received_date is_denied transaction_time procesing_time
## Length:31619 Min. :0.00000 Min. : 0 Min. : 0.00
## Class :character 1st Qu.:0.00000 1st Qu.: 211 1st Qu.: 4.00
## Mode :character Median :0.00000 Median : 780 Median : 10.00
## Mean :0.04463 Mean : 1004 Mean : 62.99
## 3rd Qu.:0.00000 3rd Qu.: 1440 3rd Qu.: 24.00
## Max. :1.00000 Max. :16428 Max. :11558.00
## NA's :614
## claimant_age_at_doi gender claimant_type injury_nature
## Min. :14.0 Length:31619 Length:31619 Length:31619
## 1st Qu.:33.0 Class :character Class :character Class :character
## Median :42.0 Mode :character Mode :character Mode :character
## Mean :41.6
## 3rd Qu.:50.0
## Max. :94.0
##
## body_part_region body_part average_weekly_wage1 claim_id1
## Length:31619 Length:31619 Min. : 100.0 Min. : 777632
## Class :character Class :character 1st Qu.: 492.0 1st Qu.: 800748
## Mode :character Mode :character Median : 492.0 Median : 812128
## Mean : 536.5 Mean : 1864676
## 3rd Qu.: 492.0 3rd Qu.: 824726
## Max. :8613.5 Max. :62203364
##
## bill_review_ale hospital physician_outpatient rx
## Min. : -448.0 Min. : -12570.4 Min. : -549.5 Min. : -160.7
## 1st Qu.: 16.0 1st Qu.: 210.5 1st Qu.: 105.8 1st Qu.: 22.9
## Median : 24.0 Median : 613.9 Median : 218.0 Median : 61.5
## Mean : 188.7 Mean : 5113.2 Mean : 1813.2 Mean : 1695.2
## 3rd Qu.: 64.1 3rd Qu.: 2349.1 3rd Qu.: 680.6 3rd Qu.: 189.0
## Max. :46055.3 Max. :2759604.0 Max. :1219766.6 Max. :631635.5
## NA's :14912 NA's :19655 NA's :2329 NA's :20730Herramienta “El Generador de Valor de Datos”
Paso 1. Definir el área de negocio que buscamos impactar o
mejorar y su KPI.
El departamento de administración en el indicador de Causas
frecuentes de los accidentes
Paso 2. Seleccionar plantilla (-s) para crear valor a partir
de los datos de los clientes.
Visión / Segmentación / Personalización /
Contextualización
Paso 3. Generar ideas o conceptos específicos
Elaborar un modelo predictivo del costo total de los
eventos.
Paso 4. Reunir los datos requeridos
Elaborar una base de datos con las variables relevantes que se
necesitan para conocer el objetivo
Paso 5. Plan de ejecución
Administración elaborará plan para desplegar modelo predictivo en el
cuál se pueda visualizar dependiendo la característica, estas siendo
edad, sexo, parte del cuerpo que fue lastimada, entre otros los cuales
son obtenidos de la base de datos.
Modelo Predictivo
Agregar una columna de días de incapacidad (ReturnToWorkDate-IncidentDate)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unioncount(bd,claimant_type, sort= TRUE)## claimant_type n
## 1 Medical Only 23073
## 2 Indemnity 7315
## 3 Report Only 1231count(bd,injury_nature, sort = TRUE)## injury_nature n
## 1 Contusion 9087
## 2 Strain 8999
## 3 Sprain 2419
## 4 Laceration 2291
## 5 Puncture 1435
## 6 All Other Specific Injuries, Noc 1365
## 7 Fracture 889
## 8 Foreign Body 867
## 9 Non-Standard Code 685
## 10 Multiple Physical Injuries Only 547
## 11 Dermatitis 424
## 12 Inflammation 350
## 13 No Physical Injury 339
## 14 Burn 337
## 15 Respiratory Disorders 267
## 16 Carpal Tunnel Syndrome 224
## 17 Dislocation 155
## 18 Crushing 148
## 19 Concussion 105
## 20 Infection 101
## 21 Contagious Disease 73
## 22 Hernia 63
## 23 Poisoning?Chemical (Other Than Metals) 59
## 24 Mental Stress 49
## 25 Syncope 48
## 26 Heat Prostration 42
## 27 Electric Shock 39
## 28 Rupture 39
## 29 Asbestosis 23
## 30 Hearing Loss Or Impairment 20
## 31 Loss of Hearing 16
## 32 Poisoning?General (NOT OD or Cumulative Injury) 16
## 33 Multiple Injuries Including Both Physical and Psychological 15
## 34 Radiation 14
## 35 Myocardial Infarction 13
## 36 Severance 13
## 37 Vision Loss 12
## 38 Amputation 8
## 39 Mental Disorder 5
## 40 Cancer 4
## 41 Dust Disease, NOC 3
## 42 Freezing 3
## 43 Angina Pectoris 2
## 44 AIDS 1
## 45 Asphyxiation 1
## 46 Black Lung 1
## 47 Not Available 1
## 48 Vascular 1
## 49 VDT-Related Disease 1count(bd,body_part_region,sort = TRUE)## body_part_region n
## 1 Upper Extremities 9927
## 2 Lower Extremities 7033
## 3 Trunk 5704
## 4 Multiple Body Parts 4237
## 5 Head 3120
## 6 Neck 971
## 7 Non-Standard Code 627count(bd,body_part, sort = TRUE)## body_part n
## 1 Multiple Body Parts (Including Body Systems and Body Parts) 3542
## 2 Lower Back Area 3359
## 3 Knee 2904
## 4 Finger(S) 2287
## 5 Hand 1874
## 6 Shoulder(S) 1555
## 7 Ankle 1361
## 8 Wrist 1287
## 9 Eyes 1267
## 10 Multiple Head Injury 1040
## 11 Foot 907
## 12 Lower Arm 759
## 13 Thumb 727
## 14 Lower Leg 675
## 15 Multiple Neck Injury 668
## 16 Non-Standard Code 627
## 17 Chest 531
## 18 Lumbar and/or Sacral Vertebrae (Vertebra NOC Trunk) 518
## 19 Elbow 508
## 20 Multiple Upper Extremities 498
## 21 Upper Arm 432
## 22 Multiple Lower Extremities 364
## 23 Hip 315
## 24 Abdomen 310
## 25 No Physical Injury 294
## 26 Soft Tissue-Neck 291
## 27 Insufficient Info to Properly Identify?Unclassified 260
## 28 Upper Leg 255
## 29 Upper Back Area 253
## 30 Facial Bones 249
## 31 Disc-Trunk 208
## 32 Lungs 189
## 33 Toes 182
## 34 Mouth 162
## 35 Nose 153
## 36 Body Systems and Multiple Body Systems 129
## 37 Ear(S) 118
## 38 Buttocks 102
## 39 Teeth 92
## 40 Great Toe 70
## 41 Pelvis 59
## 42 Multiple Trunk 54
## 43 Internal Organs 46
## 44 Spinal Cord-Trunk 36
## 45 Skull 33
## 46 Sacrum And Coccyx 27
## 47 Heart 12
## 48 Trachea 7
## 49 Whole Body 7
## 50 Artificial Appliance 5
## 51 Brain 5
## 52 Vertebrae 4
## 53 Larynx 1
## 54 Soft Tissue-Head 1Generar Modelo predictivo
regresion <-lm(total_incurred_cost ~ claimant_age_at_doi + gender + claimant_type + injury_nature + body_part_region + body_part + average_weekly_wage1, data = bd)
summary(regresion) ##
## Call:
## lm(formula = total_incurred_cost ~ claimant_age_at_doi + gender +
## claimant_type + injury_nature + body_part_region + body_part +
## average_weekly_wage1, data = bd)
##
## Residuals:
## Min 1Q Median 3Q Max
## -477362 -12697 -550 5168 4673472
##
## Coefficients: (6 not defined because of singularities)
## Estimate
## (Intercept) -2.378e+04
## claimant_age_at_doi 1.562e+02
## genderMale 1.284e+03
## genderNot Available 6.689e+04
## claimant_typeMedical Only -5.558e+04
## claimant_typeReport Only -5.011e+04
## injury_natureAll Other Specific Injuries, Noc 5.673e+04
## injury_natureAmputation 3.981e+04
## injury_natureAngina Pectoris -3.435e+03
## injury_natureAsbestosis 6.414e+04
## injury_natureAsphyxiation 6.103e+04
## injury_natureBlack Lung 6.015e+04
## injury_natureBurn 5.822e+04
## injury_natureCancer 6.751e+04
## injury_natureCarpal Tunnel Syndrome 3.969e+04
## injury_natureConcussion 8.513e+04
## injury_natureContagious Disease 7.377e+04
## injury_natureContusion 5.310e+04
## injury_natureCrushing 5.680e+04
## injury_natureDermatitis 5.106e+04
## injury_natureDislocation 3.829e+04
## injury_natureDust Disease, NOC 5.988e+04
## injury_natureElectric Shock 6.393e+04
## injury_natureForeign Body 5.245e+04
## injury_natureFracture 5.006e+04
## injury_natureFreezing 4.739e+04
## injury_natureHearing Loss Or Impairment 4.654e+04
## injury_natureHeat Prostration 4.574e+04
## injury_natureHernia 2.304e+04
## injury_natureInfection 4.686e+04
## injury_natureInflammation 6.115e+04
## injury_natureLaceration 5.288e+04
## injury_natureLoss of Hearing 4.266e+04
## injury_natureMental Disorder -3.827e+04
## injury_natureMental Stress 5.016e+04
## injury_natureMultiple Injuries Including Both Physical and Psychological 3.957e+04
## injury_natureMultiple Physical Injuries Only 5.938e+04
## injury_natureMyocardial Infarction 3.203e+04
## injury_natureNo Physical Injury 4.793e+04
## injury_natureNon-Standard Code 3.735e+04
## injury_natureNot Available 5.287e+04
## injury_naturePoisoning?Chemical (Other Than Metals) 5.778e+04
## injury_naturePoisoning?General (NOT OD or Cumulative Injury) 4.645e+04
## injury_naturePuncture 5.340e+04
## injury_natureRadiation 5.488e+04
## injury_natureRespiratory Disorders 5.089e+04
## injury_natureRupture 6.257e+04
## injury_natureSeverance 8.690e+04
## injury_natureSprain 5.235e+04
## injury_natureStrain 4.740e+04
## injury_natureSyncope 4.655e+04
## injury_natureVascular 2.162e+02
## injury_natureVDT-Related Disease 6.035e+02
## injury_natureVision Loss 5.446e+04
## body_part_regionLower Extremities 1.748e+04
## body_part_regionMultiple Body Parts 2.913e+05
## body_part_regionNeck 5.097e+04
## body_part_regionNon-Standard Code 5.759e+03
## body_part_regionTrunk 8.666e+03
## body_part_regionUpper Extremities 1.304e+04
## body_partAnkle -6.760e+03
## body_partArtificial Appliance -2.843e+05
## body_partBody Systems and Multiple Body Systems -2.765e+05
## body_partBrain 4.126e+05
## body_partButtocks 1.879e+04
## body_partChest 3.892e+03
## body_partDisc-Trunk 1.761e+04
## body_partEar(S) 1.043e+04
## body_partElbow -1.760e+02
## body_partEyes 1.369e+04
## body_partFacial Bones 1.372e+04
## body_partFinger(S) -2.799e+03
## body_partFoot -8.480e+03
## body_partGreat Toe -8.733e+03
## body_partHand -2.864e+03
## body_partHeart 6.144e+03
## body_partHip 6.854e+03
## body_partInsufficient Info to Properly Identify?Unclassified -2.826e+05
## body_partInternal Organs 1.228e+04
## body_partKnee -1.194e+03
## body_partLarynx -8.529e+04
## body_partLower Arm -2.674e+03
## body_partLower Back Area 2.532e+04
## body_partLower Leg -5.612e+01
## body_partLumbar and/or Sacral Vertebrae (Vertebra NOC Trunk) 1.772e+04
## body_partLungs -4.964e+02
## body_partMouth 1.350e+04
## body_partMultiple Body Parts (Including Body Systems and Body Parts) -2.711e+05
## body_partMultiple Head Injury 1.652e+04
## body_partMultiple Lower Extremities 1.911e+03
## body_partMultiple Neck Injury -3.185e+04
## body_partMultiple Trunk 6.008e+03
## body_partMultiple Upper Extremities 4.154e+03
## body_partNo Physical Injury -2.756e+05
## body_partNon-Standard Code NA
## body_partNose 9.839e+03
## body_partPelvis 7.507e+02
## body_partSacrum And Coccyx 1.936e+04
## body_partShoulder(S) 6.654e+03
## body_partSkull 4.699e+04
## body_partSoft Tissue-Head -1.759e+04
## body_partSoft Tissue-Neck -1.805e+04
## body_partSpinal Cord-Trunk 9.208e+04
## body_partTeeth NA
## body_partThumb -2.801e+03
## body_partToes -8.322e+03
## body_partTrachea -5.600e+04
## body_partUpper Arm 3.218e+03
## body_partUpper Back Area 6.851e+03
## body_partUpper Leg NA
## body_partVertebrae NA
## body_partWhole Body NA
## body_partWrist NA
## average_weekly_wage1 8.033e+00
## Std. Error
## (Intercept) 8.063e+04
## claimant_age_at_doi 4.036e+01
## genderMale 9.244e+02
## genderNot Available 8.412e+03
## claimant_typeMedical Only 1.152e+03
## claimant_typeReport Only 2.596e+03
## injury_natureAll Other Specific Injuries, Noc 8.019e+04
## injury_natureAmputation 8.502e+04
## injury_natureAngina Pectoris 9.965e+04
## injury_natureAsbestosis 8.190e+04
## injury_natureAsphyxiation 1.134e+05
## injury_natureBlack Lung 1.134e+05
## injury_natureBurn 8.029e+04
## injury_natureCancer 8.962e+04
## injury_natureCarpal Tunnel Syndrome 8.036e+04
## injury_natureConcussion 8.056e+04
## injury_natureContagious Disease 8.067e+04
## injury_natureContusion 8.018e+04
## injury_natureCrushing 8.045e+04
## injury_natureDermatitis 8.026e+04
## injury_natureDislocation 8.043e+04
## injury_natureDust Disease, NOC 9.279e+04
## injury_natureElectric Shock 8.116e+04
## injury_natureForeign Body 8.024e+04
## injury_natureFracture 8.022e+04
## injury_natureFreezing 9.252e+04
## injury_natureHearing Loss Or Impairment 8.260e+04
## injury_natureHeat Prostration 8.102e+04
## injury_natureHernia 8.088e+04
## injury_natureInfection 8.057e+04
## injury_natureInflammation 8.029e+04
## injury_natureLaceration 8.019e+04
## injury_natureLoss of Hearing 8.309e+04
## injury_natureMental Disorder 8.799e+04
## injury_natureMental Stress 8.077e+04
## injury_natureMultiple Injuries Including Both Physical and Psychological 8.279e+04
## injury_natureMultiple Physical Injuries Only 8.025e+04
## injury_natureMyocardial Infarction 8.664e+04
## injury_natureNo Physical Injury 8.011e+04
## injury_natureNon-Standard Code 8.082e+04
## injury_natureNot Available 1.133e+05
## injury_naturePoisoning?Chemical (Other Than Metals) 8.081e+04
## injury_naturePoisoning?General (NOT OD or Cumulative Injury) 8.261e+04
## injury_naturePuncture 8.020e+04
## injury_natureRadiation 8.297e+04
## injury_natureRespiratory Disorders 8.038e+04
## injury_natureRupture 8.119e+04
## injury_natureSeverance 8.321e+04
## injury_natureSprain 8.019e+04
## injury_natureStrain 8.018e+04
## injury_natureSyncope 8.093e+04
## injury_natureVascular 1.132e+05
## injury_natureVDT-Related Disease 1.133e+05
## injury_natureVision Loss 8.347e+04
## body_part_regionLower Extremities 9.834e+03
## body_part_regionMultiple Body Parts 3.140e+04
## body_part_regionNeck 4.088e+04
## body_part_regionNon-Standard Code 1.367e+04
## body_part_regionTrunk 9.718e+03
## body_part_regionUpper Extremities 8.743e+03
## body_partAnkle 5.588e+03
## body_partArtificial Appliance 4.685e+04
## body_partBody Systems and Multiple Body Systems 3.117e+04
## body_partBrain 3.768e+04
## body_partButtocks 9.258e+03
## body_partChest 5.913e+03
## body_partDisc-Trunk 7.302e+03
## body_partEar(S) 1.227e+04
## body_partElbow 4.234e+03
## body_partEyes 8.927e+03
## body_partFacial Bones 9.857e+03
## body_partFinger(S) 2.933e+03
## body_partFoot 5.699e+03
## body_partGreat Toe 1.081e+04
## body_partHand 2.960e+03
## body_partHeart 3.530e+04
## body_partHip 6.760e+03
## body_partInsufficient Info to Properly Identify?Unclassified 3.066e+04
## body_partInternal Organs 1.275e+04
## body_partKnee 5.259e+03
## body_partLarynx 8.940e+04
## body_partLower Arm 3.719e+03
## body_partLower Back Area 4.984e+03
## body_partLower Leg 5.884e+03
## body_partLumbar and/or Sacral Vertebrae (Vertebra NOC Trunk) 5.937e+03
## body_partLungs 9.118e+03
## body_partMouth 1.054e+04
## body_partMultiple Body Parts (Including Body Systems and Body Parts) 3.026e+04
## body_partMultiple Head Injury 8.836e+03
## body_partMultiple Lower Extremities 6.542e+03
## body_partMultiple Neck Injury 4.016e+04
## body_partMultiple Trunk 1.184e+04
## body_partMultiple Upper Extremities 4.255e+03
## body_partNo Physical Injury 3.086e+04
## body_partNon-Standard Code NA
## body_partNose 1.060e+04
## body_partPelvis 1.139e+04
## body_partSacrum And Coccyx 1.612e+04
## body_partShoulder(S) 3.078e+03
## body_partSkull 1.638e+04
## body_partSoft Tissue-Head 8.066e+04
## body_partSoft Tissue-Neck 4.032e+04
## body_partSpinal Cord-Trunk 1.418e+04
## body_partTeeth NA
## body_partThumb 3.799e+03
## body_partToes 7.792e+03
## body_partTrachea 5.036e+04
## body_partUpper Arm 4.484e+03
## body_partUpper Back Area 6.937e+03
## body_partUpper Leg NA
## body_partVertebrae NA
## body_partWhole Body NA
## body_partWrist NA
## average_weekly_wage1 2.081e+00
## t value
## (Intercept) -0.295
## claimant_age_at_doi 3.871
## genderMale 1.389
## genderNot Available 7.952
## claimant_typeMedical Only -48.261
## claimant_typeReport Only -19.300
## injury_natureAll Other Specific Injuries, Noc 0.707
## injury_natureAmputation 0.468
## injury_natureAngina Pectoris -0.034
## injury_natureAsbestosis 0.783
## injury_natureAsphyxiation 0.538
## injury_natureBlack Lung 0.530
## injury_natureBurn 0.725
## injury_natureCancer 0.753
## injury_natureCarpal Tunnel Syndrome 0.494
## injury_natureConcussion 1.057
## injury_natureContagious Disease 0.915
## injury_natureContusion 0.662
## injury_natureCrushing 0.706
## injury_natureDermatitis 0.636
## injury_natureDislocation 0.476
## injury_natureDust Disease, NOC 0.645
## injury_natureElectric Shock 0.788
## injury_natureForeign Body 0.654
## injury_natureFracture 0.624
## injury_natureFreezing 0.512
## injury_natureHearing Loss Or Impairment 0.563
## injury_natureHeat Prostration 0.565
## injury_natureHernia 0.285
## injury_natureInfection 0.582
## injury_natureInflammation 0.762
## injury_natureLaceration 0.659
## injury_natureLoss of Hearing 0.513
## injury_natureMental Disorder -0.435
## injury_natureMental Stress 0.621
## injury_natureMultiple Injuries Including Both Physical and Psychological 0.478
## injury_natureMultiple Physical Injuries Only 0.740
## injury_natureMyocardial Infarction 0.370
## injury_natureNo Physical Injury 0.598
## injury_natureNon-Standard Code 0.462
## injury_natureNot Available 0.467
## injury_naturePoisoning?Chemical (Other Than Metals) 0.715
## injury_naturePoisoning?General (NOT OD or Cumulative Injury) 0.562
## injury_naturePuncture 0.666
## injury_natureRadiation 0.661
## injury_natureRespiratory Disorders 0.633
## injury_natureRupture 0.771
## injury_natureSeverance 1.044
## injury_natureSprain 0.653
## injury_natureStrain 0.591
## injury_natureSyncope 0.575
## injury_natureVascular 0.002
## injury_natureVDT-Related Disease 0.005
## injury_natureVision Loss 0.652
## body_part_regionLower Extremities 1.778
## body_part_regionMultiple Body Parts 9.277
## body_part_regionNeck 1.247
## body_part_regionNon-Standard Code 0.421
## body_part_regionTrunk 0.892
## body_part_regionUpper Extremities 1.491
## body_partAnkle -1.210
## body_partArtificial Appliance -6.068
## body_partBody Systems and Multiple Body Systems -8.871
## body_partBrain 10.951
## body_partButtocks 2.030
## body_partChest 0.658
## body_partDisc-Trunk 2.412
## body_partEar(S) 0.850
## body_partElbow -0.042
## body_partEyes 1.534
## body_partFacial Bones 1.392
## body_partFinger(S) -0.954
## body_partFoot -1.488
## body_partGreat Toe -0.808
## body_partHand -0.967
## body_partHeart 0.174
## body_partHip 1.014
## body_partInsufficient Info to Properly Identify?Unclassified -9.218
## body_partInternal Organs 0.964
## body_partKnee -0.227
## body_partLarynx -0.954
## body_partLower Arm -0.719
## body_partLower Back Area 5.080
## body_partLower Leg -0.010
## body_partLumbar and/or Sacral Vertebrae (Vertebra NOC Trunk) 2.985
## body_partLungs -0.054
## body_partMouth 1.281
## body_partMultiple Body Parts (Including Body Systems and Body Parts) -8.957
## body_partMultiple Head Injury 1.869
## body_partMultiple Lower Extremities 0.292
## body_partMultiple Neck Injury -0.793
## body_partMultiple Trunk 0.508
## body_partMultiple Upper Extremities 0.976
## body_partNo Physical Injury -8.930
## body_partNon-Standard Code NA
## body_partNose 0.929
## body_partPelvis 0.066
## body_partSacrum And Coccyx 1.201
## body_partShoulder(S) 2.162
## body_partSkull 2.868
## body_partSoft Tissue-Head -0.218
## body_partSoft Tissue-Neck -0.448
## body_partSpinal Cord-Trunk 6.495
## body_partTeeth NA
## body_partThumb -0.737
## body_partToes -1.068
## body_partTrachea -1.112
## body_partUpper Arm 0.718
## body_partUpper Back Area 0.988
## body_partUpper Leg NA
## body_partVertebrae NA
## body_partWhole Body NA
## body_partWrist NA
## average_weekly_wage1 3.860
## Pr(>|t|)
## (Intercept) 0.768018
## claimant_age_at_doi 0.000109
## genderMale 0.164980
## genderNot Available 1.90e-15
## claimant_typeMedical Only < 2e-16
## claimant_typeReport Only < 2e-16
## injury_natureAll Other Specific Injuries, Noc 0.479316
## injury_natureAmputation 0.639614
## injury_natureAngina Pectoris 0.972499
## injury_natureAsbestosis 0.433548
## injury_natureAsphyxiation 0.590606
## injury_natureBlack Lung 0.595936
## injury_natureBurn 0.468425
## injury_natureCancer 0.451230
## injury_natureCarpal Tunnel Syndrome 0.621353
## injury_natureConcussion 0.290675
## injury_natureContagious Disease 0.360437
## injury_natureContusion 0.507791
## injury_natureCrushing 0.480165
## injury_natureDermatitis 0.524685
## injury_natureDislocation 0.634034
## injury_natureDust Disease, NOC 0.518712
## injury_natureElectric Shock 0.430906
## injury_natureForeign Body 0.513297
## injury_natureFracture 0.532576
## injury_natureFreezing 0.608538
## injury_natureHearing Loss Or Impairment 0.573195
## injury_natureHeat Prostration 0.572386
## injury_natureHernia 0.775742
## injury_natureInfection 0.560845
## injury_natureInflammation 0.446283
## injury_natureLaceration 0.509641
## injury_natureLoss of Hearing 0.607631
## injury_natureMental Disorder 0.663656
## injury_natureMental Stress 0.534599
## injury_natureMultiple Injuries Including Both Physical and Psychological 0.632666
## injury_natureMultiple Physical Injuries Only 0.459316
## injury_natureMyocardial Infarction 0.711606
## injury_natureNo Physical Injury 0.549606
## injury_natureNon-Standard Code 0.643982
## injury_natureNot Available 0.640612
## injury_naturePoisoning?Chemical (Other Than Metals) 0.474557
## injury_naturePoisoning?General (NOT OD or Cumulative Injury) 0.573890
## injury_naturePuncture 0.505543
## injury_natureRadiation 0.508337
## injury_natureRespiratory Disorders 0.526623
## injury_natureRupture 0.440943
## injury_natureSeverance 0.296341
## injury_natureSprain 0.513860
## injury_natureStrain 0.554392
## injury_natureSyncope 0.565167
## injury_natureVascular 0.998477
## injury_natureVDT-Related Disease 0.995749
## injury_natureVision Loss 0.514091
## body_part_regionLower Extremities 0.075477
## body_part_regionMultiple Body Parts < 2e-16
## body_part_regionNeck 0.212527
## body_part_regionNon-Standard Code 0.673656
## body_part_regionTrunk 0.372556
## body_part_regionUpper Extremities 0.135999
## body_partAnkle 0.226456
## body_partArtificial Appliance 1.31e-09
## body_partBody Systems and Multiple Body Systems < 2e-16
## body_partBrain < 2e-16
## body_partButtocks 0.042366
## body_partChest 0.510385
## body_partDisc-Trunk 0.015884
## body_partEar(S) 0.395371
## body_partElbow 0.966846
## body_partEyes 0.125140
## body_partFacial Bones 0.164062
## body_partFinger(S) 0.339968
## body_partFoot 0.136747
## body_partGreat Toe 0.419364
## body_partHand 0.333304
## body_partHeart 0.861813
## body_partHip 0.310615
## body_partInsufficient Info to Properly Identify?Unclassified < 2e-16
## body_partInternal Organs 0.335180
## body_partKnee 0.820407
## body_partLarynx 0.340075
## body_partLower Arm 0.472158
## body_partLower Back Area 3.80e-07
## body_partLower Leg 0.992390
## body_partLumbar and/or Sacral Vertebrae (Vertebra NOC Trunk) 0.002835
## body_partLungs 0.956579
## body_partMouth 0.200318
## body_partMultiple Body Parts (Including Body Systems and Body Parts) < 2e-16
## body_partMultiple Head Injury 0.061608
## body_partMultiple Lower Extremities 0.770137
## body_partMultiple Neck Injury 0.427779
## body_partMultiple Trunk 0.611717
## body_partMultiple Upper Extremities 0.328914
## body_partNo Physical Injury < 2e-16
## body_partNon-Standard Code NA
## body_partNose 0.353155
## body_partPelvis 0.947456
## body_partSacrum And Coccyx 0.229765
## body_partShoulder(S) 0.030656
## body_partSkull 0.004132
## body_partSoft Tissue-Head 0.827415
## body_partSoft Tissue-Neck 0.654345
## body_partSpinal Cord-Trunk 8.40e-11
## body_partTeeth NA
## body_partThumb 0.460854
## body_partToes 0.285566
## body_partTrachea 0.266149
## body_partUpper Arm 0.472978
## body_partUpper Back Area 0.323337
## body_partUpper Leg NA
## body_partVertebrae NA
## body_partWhole Body NA
## body_partWrist NA
## average_weekly_wage1 0.000114
##
## (Intercept)
## claimant_age_at_doi ***
## genderMale
## genderNot Available ***
## claimant_typeMedical Only ***
## claimant_typeReport Only ***
## injury_natureAll Other Specific Injuries, Noc
## injury_natureAmputation
## injury_natureAngina Pectoris
## injury_natureAsbestosis
## injury_natureAsphyxiation
## injury_natureBlack Lung
## injury_natureBurn
## injury_natureCancer
## injury_natureCarpal Tunnel Syndrome
## injury_natureConcussion
## injury_natureContagious Disease
## injury_natureContusion
## injury_natureCrushing
## injury_natureDermatitis
## injury_natureDislocation
## injury_natureDust Disease, NOC
## injury_natureElectric Shock
## injury_natureForeign Body
## injury_natureFracture
## injury_natureFreezing
## injury_natureHearing Loss Or Impairment
## injury_natureHeat Prostration
## injury_natureHernia
## injury_natureInfection
## injury_natureInflammation
## injury_natureLaceration
## injury_natureLoss of Hearing
## injury_natureMental Disorder
## injury_natureMental Stress
## injury_natureMultiple Injuries Including Both Physical and Psychological
## injury_natureMultiple Physical Injuries Only
## injury_natureMyocardial Infarction
## injury_natureNo Physical Injury
## injury_natureNon-Standard Code
## injury_natureNot Available
## injury_naturePoisoning?Chemical (Other Than Metals)
## injury_naturePoisoning?General (NOT OD or Cumulative Injury)
## injury_naturePuncture
## injury_natureRadiation
## injury_natureRespiratory Disorders
## injury_natureRupture
## injury_natureSeverance
## injury_natureSprain
## injury_natureStrain
## injury_natureSyncope
## injury_natureVascular
## injury_natureVDT-Related Disease
## injury_natureVision Loss
## body_part_regionLower Extremities .
## body_part_regionMultiple Body Parts ***
## body_part_regionNeck
## body_part_regionNon-Standard Code
## body_part_regionTrunk
## body_part_regionUpper Extremities
## body_partAnkle
## body_partArtificial Appliance ***
## body_partBody Systems and Multiple Body Systems ***
## body_partBrain ***
## body_partButtocks *
## body_partChest
## body_partDisc-Trunk *
## body_partEar(S)
## body_partElbow
## body_partEyes
## body_partFacial Bones
## body_partFinger(S)
## body_partFoot
## body_partGreat Toe
## body_partHand
## body_partHeart
## body_partHip
## body_partInsufficient Info to Properly Identify?Unclassified ***
## body_partInternal Organs
## body_partKnee
## body_partLarynx
## body_partLower Arm
## body_partLower Back Area ***
## body_partLower Leg
## body_partLumbar and/or Sacral Vertebrae (Vertebra NOC Trunk) **
## body_partLungs
## body_partMouth
## body_partMultiple Body Parts (Including Body Systems and Body Parts) ***
## body_partMultiple Head Injury .
## body_partMultiple Lower Extremities
## body_partMultiple Neck Injury
## body_partMultiple Trunk
## body_partMultiple Upper Extremities
## body_partNo Physical Injury ***
## body_partNon-Standard Code
## body_partNose
## body_partPelvis
## body_partSacrum And Coccyx
## body_partShoulder(S) *
## body_partSkull **
## body_partSoft Tissue-Head
## body_partSoft Tissue-Neck
## body_partSpinal Cord-Trunk ***
## body_partTeeth
## body_partThumb
## body_partToes
## body_partTrachea
## body_partUpper Arm
## body_partUpper Back Area
## body_partUpper Leg
## body_partVertebrae
## body_partWhole Body
## body_partWrist
## average_weekly_wage1 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 79930 on 31511 degrees of freedom
## Multiple R-squared: 0.1034, Adjusted R-squared: 0.1004
## F-statistic: 33.98 on 107 and 31511 DF, p-value: < 2.2e-16Construir un modelo predictivo
datos_nuevos <- data.frame (claimant_age_at_doi = c(20,30,40,50,60,70,80,90) , gender = "Male" , claimant_type = "Medical Only" , injury_nature = "Amputation" , body_part_region = "Multiple Body Parts" , body_part = "Brain" , average_weekly_wage1 = 537)
datos_nuevos## claimant_age_at_doi gender claimant_type injury_nature body_part_region
## 1 20 Male Medical Only Amputation Multiple Body Parts
## 2 30 Male Medical Only Amputation Multiple Body Parts
## 3 40 Male Medical Only Amputation Multiple Body Parts
## 4 50 Male Medical Only Amputation Multiple Body Parts
## 5 60 Male Medical Only Amputation Multiple Body Parts
## 6 70 Male Medical Only Amputation Multiple Body Parts
## 7 80 Male Medical Only Amputation Multiple Body Parts
## 8 90 Male Medical Only Amputation Multiple Body Parts
## body_part average_weekly_wage1
## 1 Brain 537
## 2 Brain 537
## 3 Brain 537
## 4 Brain 537
## 5 Brain 537
## 6 Brain 537
## 7 Brain 537
## 8 Brain 537predict(regresion,datos_nuevos)## Warning in predict.lm(regresion, datos_nuevos): prediction from a rank-deficient
## fit may be misleading## 1 2 3 4 5 6 7 8
## 673115.3 674677.3 676239.3 677801.3 679363.3 680925.3 682487.3 684049.4Conclusiones
El propósito de este código de R es realizar un modelo predictivo, el cual es una herramienta estadística que arroja resultados apoyados del Big Data que sirve para predecir y/o pronosticar resultados a futuro.
En este caso, se usaron las variables que son relevantes y que tienen mucha relación. Esta relación se obtuvo realizando una regresión con las variables que tienen impacto directo con la variable total_incurred_cost.
Finalmente, podemos ver como en la predicción se incertaron valores y characters los cuales tienen una relación fuerte de acuerdo con la regresión, esto para poder observar el comportamiento y concluir con una recomendación basada en datos existentes.
LS0tCnRpdGxlOiAiU2VndXJvcyIKYXV0aG9yOiAiSXZhbm5hIEdhcnphIEEwMTI4Mzc1OSIKZGF0ZTogIjIwMjItMDktMDYiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDoKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OiB0cnVlCiAgICB0aGVtZTogY2VydWxlYW4KICAgIGhpZ2hsaWdodDogdGFuZ28KICAgIGNvZGVfZG93bmxvYWQ6IHRydWUKLS0tCgo8aW1nIHNyYz0gIi9Vc2Vycy9pdmFubmFnYXJ6YS9EZXNrdG9wL1Byb3BWYWxvcjEuZ2lmIj4KCiMgQ29ub2NlciBCRCAKCiMjIElkZW50aWZpY2FyIGxhIGJhc2UgZGUgZGF0b3MgCmBgYHtyfQpiZCA8LSByZWFkLmNzdigiL1VzZXJzL2l2YW5uYWdhcnphL0Rlc2t0b3AvVEVDLzcgU0VNRVNUUkUvTU9EVUxPMy9zZWd1cm9zLmNzdiIpCmBgYAoKIyMgTGltcGlhciBub21icmVzIGRlIGxhcyBjb2x1bW5hcyAKYGBge3J9CiMgaW5zdGFsbC5wYWNrYWdlcygiamFuaXRvciIpCgpsaWJyYXJ5KCJqYW5pdG9yIikKYmQ8LSBjbGVhbl9uYW1lcyhiZCkKCmBgYAoKIyMgRW50ZW5kZXIgbGEgYmFzZSBkZSBkYXRvcyAKYGBge3J9CnJlc3VtZW4gPC0gc3VtbWFyeShiZCkKcmVzdW1lbgpgYGAKCiMgKipIZXJyYW1pZW50YSAiRWwgR2VuZXJhZG9yIGRlIFZhbG9yIGRlIERhdG9zIioqICAKCioqUGFzbyAxLiBEZWZpbmlyIGVsIMOhcmVhIGRlIG5lZ29jaW8gcXVlIGJ1c2NhbW9zIGltcGFjdGFyIG8gbWVqb3JhciB5IHN1IEtQSS4qKiAgCipFbCBkZXBhcnRhbWVudG8gZGUgYWRtaW5pc3RyYWNpw7NuIGVuIGVsIGluZGljYWRvciBkZSBDYXVzYXMgZnJlY3VlbnRlcyBkZSBsb3MgYWNjaWRlbnRlcyogIAoKKipQYXNvIDIuIFNlbGVjY2lvbmFyIHBsYW50aWxsYSAoLXMpIHBhcmEgY3JlYXIgdmFsb3IgYSBwYXJ0aXIgZGUgbG9zIGRhdG9zIGRlIGxvcyBjbGllbnRlcy4qKiAgCioqVmlzacOzbioqICovIFNlZ21lbnRhY2nDs24gLyBQZXJzb25hbGl6YWNpw7NuIC8gQ29udGV4dHVhbGl6YWNpw7NuKgoKKipQYXNvIDMuIEdlbmVyYXIgaWRlYXMgbyBjb25jZXB0b3MgZXNwZWPDrWZpY29zKiogIAoqRWxhYm9yYXIgdW4gbW9kZWxvIHByZWRpY3Rpdm8gZGVsIGNvc3RvIHRvdGFsIGRlIGxvcyBldmVudG9zLiogIAoKKipQYXNvIDQuIFJldW5pciBsb3MgZGF0b3MgcmVxdWVyaWRvcyoqICAKKkVsYWJvcmFyIHVuYSBiYXNlIGRlIGRhdG9zIGNvbiBsYXMgdmFyaWFibGVzIHJlbGV2YW50ZXMgcXVlIHNlIG5lY2VzaXRhbiBwYXJhIGNvbm9jZXIgZWwgb2JqZXRpdm8qICAKCioqUGFzbyA1LiBQbGFuIGRlIGVqZWN1Y2nDs24qKiAgCipBZG1pbmlzdHJhY2nDs24gZWxhYm9yYXLDoSBwbGFuIHBhcmEgZGVzcGxlZ2FyIG1vZGVsbyBwcmVkaWN0aXZvIGVuIGVsIGN1w6FsIHNlIHB1ZWRhIHZpc3VhbGl6YXIgZGVwZW5kaWVuZG8gbGEgY2FyYWN0ZXLDrXN0aWNhLCBlc3RhcyBzaWVuZG8gZWRhZCwgc2V4bywgcGFydGUgZGVsIGN1ZXJwbyBxdWUgZnVlIGxhc3RpbWFkYSwgZW50cmUgb3Ryb3MgbG9zIGN1YWxlcyBzb24gb2J0ZW5pZG9zIGRlIGxhIGJhc2UgZGUgZGF0b3MuKiAgCgoKCiMgTW9kZWxvIFByZWRpY3Rpdm8gCgojIyBBZ3JlZ2FyIHVuYSBjb2x1bW5hIGRlIGTDrWFzIGRlIGluY2FwYWNpZGFkIChSZXR1cm5Ub1dvcmtEYXRlLUluY2lkZW50RGF0ZSkKYGBge3J9CmxpYnJhcnkoZHBseXIpCmNvdW50KGJkLGNsYWltYW50X3R5cGUsIHNvcnQ9IFRSVUUpCmNvdW50KGJkLGluanVyeV9uYXR1cmUsIHNvcnQgPSBUUlVFKQpjb3VudChiZCxib2R5X3BhcnRfcmVnaW9uLHNvcnQgPSBUUlVFKQpjb3VudChiZCxib2R5X3BhcnQsIHNvcnQgPSBUUlVFKQoKYGBgCgojIyBHZW5lcmFyIE1vZGVsbyBwcmVkaWN0aXZvCmBgYHtyfQpyZWdyZXNpb24gPC1sbSh0b3RhbF9pbmN1cnJlZF9jb3N0IH4gY2xhaW1hbnRfYWdlX2F0X2RvaSArIGdlbmRlciArIGNsYWltYW50X3R5cGUgKyBpbmp1cnlfbmF0dXJlICsgYm9keV9wYXJ0X3JlZ2lvbiArIGJvZHlfcGFydCArIGF2ZXJhZ2Vfd2Vla2x5X3dhZ2UxLCBkYXRhID0gYmQpCnN1bW1hcnkocmVncmVzaW9uKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAKCmBgYAoKIyMgQ29uc3RydWlyIHVuIG1vZGVsbyBwcmVkaWN0aXZvIApgYGB7cn0KZGF0b3NfbnVldm9zIDwtIGRhdGEuZnJhbWUgKGNsYWltYW50X2FnZV9hdF9kb2kgPSBjKDIwLDMwLDQwLDUwLDYwLDcwLDgwLDkwKSAsIGdlbmRlciA9ICJNYWxlIiAsIGNsYWltYW50X3R5cGUgPSAiTWVkaWNhbCBPbmx5IiAsIGluanVyeV9uYXR1cmUgPSAiQW1wdXRhdGlvbiIgLCBib2R5X3BhcnRfcmVnaW9uID0gIk11bHRpcGxlIEJvZHkgUGFydHMiICwgYm9keV9wYXJ0ID0gIkJyYWluIiAsIGF2ZXJhZ2Vfd2Vla2x5X3dhZ2UxID0gNTM3KQpkYXRvc19udWV2b3MKCnByZWRpY3QocmVncmVzaW9uLGRhdG9zX251ZXZvcykKCmBgYAoKIyBDb25jbHVzaW9uZXMgCkVsIHByb3DDs3NpdG8gZGUgZXN0ZSBjw7NkaWdvIGRlICpSKiBlcyByZWFsaXphciB1biBtb2RlbG8gcHJlZGljdGl2bywgZWwgY3VhbCBlcyB1bmEgaGVycmFtaWVudGEgZXN0YWTDrXN0aWNhIHF1ZSBhcnJvamEgcmVzdWx0YWRvcyBhcG95YWRvcyBkZWwgKkJpZyBEYXRhKiBxdWUgc2lydmUgcGFyYSBwcmVkZWNpciB5L28gcHJvbm9zdGljYXIgcmVzdWx0YWRvcyBhIGZ1dHVyby4gIAoKRW4gZXN0ZSBjYXNvLCBzZSB1c2Fyb24gbGFzIHZhcmlhYmxlcyBxdWUgc29uIHJlbGV2YW50ZXMgeSBxdWUgdGllbmVuIG11Y2hhIHJlbGFjacOzbi4gRXN0YSByZWxhY2nDs24gc2Ugb2J0dXZvIHJlYWxpemFuZG8gdW5hIHJlZ3Jlc2nDs24gY29uIGxhcyB2YXJpYWJsZXMgcXVlIHRpZW5lbiBpbXBhY3RvIGRpcmVjdG8gY29uIGxhIHZhcmlhYmxlICp0b3RhbF9pbmN1cnJlZF9jb3N0Ki4gIAoKRmluYWxtZW50ZSwgcG9kZW1vcyB2ZXIgY29tbyBlbiBsYSBwcmVkaWNjacOzbiBzZSBpbmNlcnRhcm9uIHZhbG9yZXMgeSAqY2hhcmFjdGVycyogbG9zIGN1YWxlcyB0aWVuZW4gdW5hIHJlbGFjacOzbiBmdWVydGUgZGUgYWN1ZXJkbyBjb24gbGEgcmVncmVzacOzbiwgZXN0byBwYXJhIHBvZGVyIG9ic2VydmFyIGVsIGNvbXBvcnRhbWllbnRvIHkgY29uY2x1aXIgY29uIHVuYSByZWNvbWVuZGFjacOzbiBiYXNhZGEgZW4gZGF0b3MgZXhpc3RlbnRlcy4gCg==