claimants<-read.csv("C:\\Users\\dell\\Downloads\\claimants.csv")
claimants1<-claimants[-1]
colnames(claimants1)
## [1] "ATTORNEY" "CLMSEX" "CLMINSUR" "SEATBELT" "CLMAGE" "LOSS"
attach(claimants1)
str(CLMINSUR)
## int [1:1340] 1 0 1 1 1 1 1 1 1 1 ...
str(CLMAGE)
## int [1:1340] 50 18 5 31 30 35 9 34 60 NA ...
str(as.factor(CLMSEX))
## Factor w/ 2 levels "0","1": 1 2 1 1 1 2 1 2 2 1 ...
a<-na.omit(claimants1)
summary(a)
## ATTORNEY CLMSEX CLMINSUR SEATBELT
## Min. :0.0000 Min. :0.0000 Min. :0.0000 Min. :0.00000
## 1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.:1.0000 1st Qu.:0.00000
## Median :0.0000 Median :1.0000 Median :1.0000 Median :0.00000
## Mean :0.4726 Mean :0.5648 Mean :0.9042 Mean :0.01825
## 3rd Qu.:1.0000 3rd Qu.:1.0000 3rd Qu.:1.0000 3rd Qu.:0.00000
## Max. :1.0000 Max. :1.0000 Max. :1.0000 Max. :1.00000
## CLMAGE LOSS
## Min. : 0.00 Min. : 0.000
## 1st Qu.: 9.00 1st Qu.: 0.440
## Median :30.00 Median : 1.311
## Mean :28.59 Mean : 3.857
## 3rd Qu.:43.00 3rd Qu.: 3.910
## Max. :95.00 Max. :173.604
m1<-glm(ATTORNEY~factor(CLMINSUR)+factor(CLMSEX)+factor(SEATBELT)+CLMAGE+LOSS,family=binomial,data=a)
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
summary(m1)
##
## Call:
## glm(formula = ATTORNEY ~ factor(CLMINSUR) + factor(CLMSEX) +
## factor(SEATBELT) + CLMAGE + LOSS, family = binomial, data = a)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -1.74474 -1.01055 -0.02547 0.95764 2.78320
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -0.199978 0.246769 -0.810 0.41772
## factor(CLMINSUR)1 0.602173 0.231030 2.606 0.00915 **
## factor(CLMSEX)1 0.432996 0.135706 3.191 0.00142 **
## factor(SEATBELT)1 -0.781079 0.566125 -1.380 0.16768
## CLMAGE 0.006487 0.003324 1.952 0.05097 .
## LOSS -0.385044 0.034845 -11.050 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1516.1 on 1095 degrees of freedom
## Residual deviance: 1287.8 on 1090 degrees of freedom
## AIC: 1299.8
##
## Number of Fisher Scoring iterations: 6
model<-glm(ATTORNEY~factor(CLMINSUR)+factor(CLMSEX)+CLMAGE+LOSS,family=binomial,data=a)
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
summary(model)
##
## Call:
## glm(formula = ATTORNEY ~ factor(CLMINSUR) + factor(CLMSEX) +
## CLMAGE + LOSS, family = binomial, data = a)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -1.74342 -1.01562 -0.02531 0.95986 2.78517
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -0.213451 0.246555 -0.866 0.38664
## factor(CLMINSUR)1 0.595347 0.230718 2.580 0.00987 **
## factor(CLMSEX)1 0.437560 0.135540 3.228 0.00125 **
## CLMAGE 0.006670 0.003316 2.011 0.04429 *
## LOSS -0.385037 0.034848 -11.049 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1516.1 on 1095 degrees of freedom
## Residual deviance: 1289.9 on 1091 degrees of freedom
## AIC: 1299.9
##
## Number of Fisher Scoring iterations: 6
coef(model)
## (Intercept) factor(CLMINSUR)1 factor(CLMSEX)1 CLMAGE
## -0.213451152 0.595346981 0.437560161 0.006669981
## LOSS
## -0.385036704
exp(coef(model))
## (Intercept) factor(CLMINSUR)1 factor(CLMSEX)1 CLMAGE
## 0.8077916 1.8136601 1.5489235 1.0066923
## LOSS
## 0.6804257
pred<-predict(model,a)
pred
## 1 2 3 4 5
## -12.737787582 0.001100960 0.288183620 0.574418877 0.567363859
## 6 7 8 9 11
## 0.933928978 -0.920334204 -0.833128816 0.883132761 -1.317131919
## 12 13 14 15 16
## -6.895204731 -0.217505896 0.827125522 1.011185032 0.263731891
## 17 18 19 20 22
## 1.187063044 0.476896896 0.401905771 -0.757549231 1.029530471
## 23 25 26 27 28
## -6.182570060 -3.123693718 0.536442046 0.731009154 0.225955963
## 29 31 33 34 35
## 0.492755197 -0.611660914 0.209748523 0.408738913 -0.776404063
## 36 37 38 39 40
## -0.429414196 -0.728763680 -0.271680774 0.453381029 -0.316596652
## 41 42 43 44 45
## 0.260601996 -2.670728562 -1.988671830 -3.857675892 0.238128849
## 47 48 50 51 52
## -0.776695325 0.388565809 -0.544918721 -0.508098007 0.366664007
## 55 56 58 59 60
## 0.577028581 -12.367944226 -2.286626882 1.059415045 0.068564410
## 64 65 66 68 69
## 0.676618554 0.490354728 0.938578046 0.551192318 0.218137305
## 70 71 72 73 74
## 0.293064741 -16.209302441 0.186045895 0.404136925 0.525583742
## 75 76 77 79 80
## 0.210554495 -0.932382733 0.285356736 -0.073248758 -0.735323007
## 81 82 84 85 86
## 0.253255881 0.627061994 -0.360933966 0.327574451 0.489182956
## 87 88 89 90 92
## -0.795618210 0.995149814 -0.692370333 -0.783387284 -0.915519400
## 93 94 95 96 98
## 0.541684271 -0.573375539 0.150546025 1.255291033 -12.922538099
## 99 100 101 102 103
## -2.860433733 0.264808772 0.148539653 0.900270529 0.500377648
## 105 106 107 108 109
## 0.201799076 -1.058184614 -15.032996073 -1.239712083 0.797128557
## 111 112 113 115 118
## 0.437835967 0.881700309 -1.605231576 0.726501889 -0.291281748
## 119 121 122 123 124
## -0.060781085 0.768719603 -1.358732545 1.107023273 0.099922814
## 125 126 128 129 131
## -0.679996598 -0.381131623 -2.386264667 0.454452376 1.006777407
## 132 135 136 138 139
## 1.131392977 -0.691038306 0.357762873 -0.005066059 1.020330184
## 140 141 142 144 145
## 0.060614962 0.613946814 -0.345684314 -2.908900493 -0.272965721
## 146 147 148 149 150
## 1.318016117 0.070654544 -18.660503358 -21.822273580 0.715584538
## 151 153 154 155 156
## -2.278965573 0.830598122 0.626900955 0.484952248 -1.286661459
## 157 158 160 161 162
## -12.384577297 -14.672419320 0.107466036 -0.574362171 0.304206873
## 164 166 167 168 169
## -0.634899439 0.378045461 0.427660062 0.430333123 -1.145071283
## 170 171 172 173 174
## 1.007731668 0.254288424 -0.770652445 -0.867674424 0.308825523
## 175 176 177 178 179
## -0.250467857 -1.235939945 0.641308352 0.626913705 -0.739060199
## 180 181 182 183 186
## -3.329147759 -0.801947492 0.415245733 0.212479679 0.497149066
## 188 190 191 192 193
## 0.670558392 0.514039073 0.298702178 -1.609425548 0.859475875
## 194 195 196 197 198
## -0.381540592 0.801997711 0.303731587 -0.833784708 1.097124710
## 199 201 202 203 204
## 0.558560575 0.912053682 0.993786584 -0.248707625 -0.420353976
## 205 206 208 209 210
## 0.202652074 0.469285404 0.349260863 -5.023495236 -1.862486865
## 211 212 213 214 215
## 0.912182735 0.545013278 0.846135913 -0.357632418 1.040227736
## 216 217 218 219 220
## 0.969569866 -0.436445282 -1.209847698 0.804054522 0.601726064
## 221 222 224 225 226
## 0.487654775 0.661898701 -0.089424996 0.175492223 -0.124374877
## 227 228 229 230 231
## 0.296937250 0.182162204 -0.719803668 -0.494669587 0.650969384
## 232 233 234 236 237
## 0.241586909 -0.528564783 -0.571169487 0.309471240 0.505887823
## 238 239 240 241 242
## 0.010081161 0.553460153 0.855240471 0.354550952 -1.433288647
## 243 244 245 246 247
## -14.746103134 -0.552471166 0.816612444 -0.338380583 0.537300578
## 248 250 251 252 253
## 0.673627503 0.821220918 0.949916332 -1.391367511 0.580632024
## 254 256 258 259 260
## -1.594794153 -0.958151564 -0.700117141 0.108904805 -0.922101707
## 261 262 263 264 265
## 0.681878225 0.536560923 -0.403683217 0.726927520 0.455495095
## 266 267 269 270 271
## 0.276221760 -0.457007786 1.147291872 -0.521107445 0.830858802
## 272 273 274 276 277
## -0.796181954 0.223105147 -0.275624296 0.552477265 -0.480832197
## 279 280 281 282 284
## 0.653356881 0.637629423 0.865385174 0.238382258 -0.483840694
## 286 287 288 289 290
## -2.002377592 -0.174008714 -25.451930830 0.149309727 -1.488217269
## 291 292 293 294 296
## 1.022375029 -0.353176929 -0.144088242 -0.396016428 -0.358475457
## 297 298 300 301 303
## 0.189377476 0.912479313 0.560271153 0.274571013 -0.619106448
## 304 305 306 307 308
## 0.834312166 0.603290143 0.260862676 -0.709673053 0.569566385
## 309 310 311 312 313
## 1.001819795 -2.873472421 0.368127662 0.389310160 -0.095780000
## 314 315 316 317 318
## -0.270888722 0.288105338 0.867662070 0.379970645 0.844074407
## 320 321 322 323 324
## 0.196934617 0.958647819 0.254152101 0.651039391 -1.302278649
## 326 327 328 329 330
## 1.124349925 0.797508898 -0.394600638 0.093223421 -1.084574446
## 331 332 334 335 337
## -0.321794755 0.201098225 -15.837465849 -1.809508312 -0.912652706
## 338 339 340 341 342
## 0.739236728 0.158674965 -0.720478013 0.805570736 -0.713281976
## 343 344 345 346 347
## 0.240431799 0.594659081 0.340938345 -0.637324004 0.311397376
## 348 349 350 351 352
## 0.034399474 0.208218552 -0.628289289 -1.526140533 -1.733677107
## 353 355 356 357 358
## 0.558732797 -0.879329694 -1.231858364 -0.223702381 -2.445650568
## 359 360 361 362 364
## 0.834565576 -0.319336867 0.413942334 -0.118797270 -65.717636926
## 365 366 368 369 370
## 0.716875971 -0.103371870 0.390359366 0.076626248 0.368419544
## 371 372 373 375 376
## 0.775424698 -0.379667969 0.698518566 -2.262432927 -1.008344448
## 377 378 379 380 381
## 0.737227782 -0.805033102 0.867831717 -0.873716135 0.492014536
## 382 383 384 385 387
## -0.171222093 -2.222986962 0.590067268 0.073457496 0.721773754
## 388 390 391 392 393
## 0.953742767 -0.870020543 0.539390713 0.403297629 0.668882706
## 394 397 401 403 404
## 0.825989648 0.533928402 -1.245924061 -6.037125442 -18.803239584
## 406 407 409 411 412
## -1.370329721 -1.028218068 0.150202367 -17.752968940 0.765134612
## 413 414 415 416 417
## -0.796159975 0.061863227 -1.417564879 -25.691441106 0.381852660
## 418 419 420 421 422
## -1.176587036 0.808254027 -1.311903614 0.127633490 0.454251527
## 423 424 425 426 427
## 0.269441179 0.705312904 -0.321321260 0.457734303 0.737916667
## 430 431 433 434 436
## 0.891907417 -0.492277557 -1.449737531 -19.852758276 -0.935458330
## 437 438 439 440 443
## -0.476601490 -0.453891594 -0.635621648 -0.735323007 0.756278768
## 444 445 447 448 449
## 0.651680411 -0.293596664 0.639110523 -0.149813022 -0.522297285
## 450 451 452 454 457
## -0.574709357 -0.248350264 0.039776852 0.469694373 -2.210521242
## 458 461 462 463 464
## 1.094950813 0.474551561 0.788653053 0.085025259 0.057125699
## 465 467 469 470 471
## 0.389476902 1.135628380 -0.485694081 0.210915600 -0.884718417
## 473 474 475 476 477
## -0.389116969 -1.697711344 -3.120597932 0.882032785 -22.863310613
## 478 479 480 481 482
## 0.735326531 -0.058882739 0.844559868 0.660731625 1.068423874
## 483 486 487 488 490
## 0.677494533 0.632562325 0.756154411 -0.505271907 -0.334381927
## 493 494 495 497 498
## 0.898457737 -0.268332531 -0.185503728 0.246100439 0.710205990
## 499 500 501 502 503
## 0.800962262 -1.417490176 -1.888756650 -0.840775199 -2.316087562
## 504 505 507 508 509
## 0.273054798 0.079959952 -0.460507224 0.637629423 -0.299394357
## 511 512 513 514 515
## 0.140145338 -0.315407433 0.240824106 1.222847525 0.275678258
## 516 517 518 519 520
## -0.210009754 1.195894956 -0.799416017 -0.920753403 0.761315447
## 521 522 525 526 527
## 1.108752304 0.563779652 0.390218347 0.435877460 -1.572392802
## 529 530 532 533 534
## -0.521445239 -0.014041565 0.985464066 0.351987322 0.607951178
## 535 536 537 538 540
## 1.103297263 0.514879990 -1.230651646 -0.073887205 -2.669170916
## 541 542 543 544 545
## -0.579921163 -0.432685326 -0.403545724 -0.736169573 -0.698139398
## 546 549 550 552 553
## -0.301452957 -1.883783545 0.881319968 -0.426311924 -1.332235019
## 554 556 557 558 559
## 0.021182699 -2.188072979 0.424146867 0.364449516 -1.161558639
## 561 562 564 565 566
## -1.147190883 -0.552602009 0.121111799 0.873726929 -1.257233098
## 567 568 569 570 571
## 1.079585243 -2.745710295 0.327390264 -0.253563023 0.453577182
## 572 573 574 575 576
## -0.162691455 0.170883748 -0.209171411 -1.306783793 -0.578151539
## 577 578 579 581 582
## 0.331159442 -0.833951450 0.129027138 -1.455501115 0.434141159
## 583 585 586 587 588
## 0.844956871 1.168818029 -1.195823378 -15.020765147 -0.169084094
## 590 591 592 593 594
## 0.699974950 0.820972204 0.682595738 -0.843412416 -0.330967367
## 595 596 597 598 599
## 1.103569909 -1.548288475 1.244770685 0.753987000 0.667715630
## 600 601 603 604 605
## -23.330065348 0.355385552 0.848410235 -0.284219460 -0.493306357
## 608 609 610 611 613
## 0.593936872 0.324140323 -1.238216057 0.372523321 0.570444153
## 614 616 617 618 619
## -1.413465798 0.662746051 -0.256492122 -5.010913382 0.789190291
## 620 621 622 623 624
## -0.865602905 -0.078741487 -0.822778899 0.045883142 -0.315771112
## 626 627 628 629 630
## -2.059874992 -2.253073169 -1.353722372 1.117282941 0.301523582
## 632 633 634 635 636
## 0.116197523 -0.484538971 0.353542341 -2.214544783 0.984741073
## 637 638 639 640 641
## 0.752074566 -0.826268161 0.528984546 0.396615682 0.041989607
## 642 643 644 646 647
## -0.819598181 -2.039334630 0.870369293 -1.475332350 -0.340651378
## 648 649 650 651 652
## 1.263252447 -0.894400422 0.525761443 0.375089525 0.450685772
## 653 654 655 657 658
## 0.774791732 -1.921015971 0.512765140 -0.678378169 -0.240593226
## 659 660 662 663 664
## -1.249303839 0.344794192 -2.434011008 0.817530806 0.940426737
## 665 666 669 670 672
## -0.290838834 -1.016713041 -0.108638027 1.195012491 1.174753835
## 673 674 675 676 678
## 0.444218377 -1.607337204 -1.065430305 0.759619741 -1.029306862
## 679 680 681 682 684
## -0.222498454 -0.958449932 0.733260328 0.185264639 0.421234099
## 685 687 688 689 690
## -1.728359559 0.731990253 0.986903788 -0.268739709 -2.554488072
## 691 692 693 695 696
## 0.293959171 -1.696818704 0.788710310 0.374632691 -1.845957746
## 697 699 700 701 702
## -0.562612964 0.743591009 -2.162696454 0.784510804 0.581662778
## 703 704 705 706 708
## -0.288325811 0.800204155 -1.839519032 0.357490227 0.773072094
## 709 710 711 712 713
## 0.371254030 0.369732335 -1.874094053 -1.211258792 0.607264867
## 715 716 717 718 719
## 1.070011885 -2.218565581 0.594089857 -0.678182015 -6.489016730
## 720 721 722 724 725
## 0.738851691 -0.506036500 -2.743454371 -0.681001629 0.808390350
## 726 727 728 729 730
## 0.381591980 0.601608194 -1.081540226 -0.751688128 0.262747266
## 731 732 734 735 736
## 0.362643993 -0.963542078 -0.255592374 0.906278132 0.376505315
## 737 738 739 740 741
## -2.587045707 1.135733501 -1.277618685 -1.147493894 1.272878364
## 742 743 744 745 746
## -0.909478474 0.718416118 -1.483479742 -0.873966639 -3.031614811
## 747 749 750 751 753
## 0.657306889 -0.521295159 0.618549809 0.772593903 -0.497140062
## 754 756 757 758 759
## 0.420339669 0.644813493 0.002453393 -0.798397230 0.235550679
## 760 761 762 763 764
## -3.828680431 -0.103371870 0.227881147 -1.185848322 0.782094679
## 765 766 767 768 770
## -0.897073537 0.552347428 0.356868443 -0.355443028 0.713154657
## 772 775 776 778 779
## 1.042349073 0.817506874 -0.508098007 0.841764186 1.013234573
## 781 782 783 786 787
## -0.451196337 0.369562688 0.617660858 0.083432552 -0.539285980
## 788 791 793 794 795
## -18.977692414 -2.748086778 0.693637446 0.217846260 -0.256083153
## 796 797 798 799 800
## -1.335515210 -0.424248464 -1.650444653 0.351476139 0.932845664
## 801 802 803 804 805
## -0.115943712 0.831231872 -0.536815504 -0.553586851 -0.793778579
## 807 808 810 812 813
## -0.136147854 -42.406398534 0.360718810 0.803004532 0.864569811
## 814 815 816 817 818
## -29.892930422 0.208466482 -0.543458810 -1.215369839 0.551890594
## 819 820 821 822 823
## -1.444074371 -0.369922390 0.529333684 0.695153661 -1.351299761
## 826 827 829 830 831
## -0.293881276 0.526316127 -2.100555466 0.671577963 -1.285931980
## 832 833 834 835 836
## -0.176121828 -0.467764882 -11.051907222 0.735326531 0.904044404
## 838 839 841 842 843
## 0.925807309 -0.855852631 0.370705832 -0.285778843 0.417034593
## 845 847 848 849 852
## -0.976965802 0.106422364 -0.849363094 -1.100615144 0.794155958
## 853 854 856 857 858
## 0.096908837 0.391571732 -0.842149611 -1.631109055 -0.564170557
## 859 861 863 864 865
## 0.206531907 -0.090171975 0.087211123 0.845454298 0.700195036
## 866 867 868 870 871
## 0.638701554 0.904044404 0.654528653 -0.742751095 0.561301906
## 872 874 876 878 879
## -0.162292662 -0.299876912 -2.782429801 -2.480486268 0.347242525
## 880 883 885 886 887
## 0.224482079 0.518333355 -2.685961336 -0.691600260 -3.147085228
## 888 889 890 891 892
## 0.876232518 0.899223114 0.813680439 -0.712104887 -0.266848688
## 893 894 896 897 898
## 0.637694733 0.306870927 -0.204450546 -0.951421752 -5.414824155
## 899 900 901 902 904
## -0.499060549 -1.108741509 0.017817794 0.723545952 -0.646841057
## 905 908 909 911 912
## 0.740131158 -2.752073468 0.705461193 -0.094612924 -2.291213161
## 913 914 915 916 917
## -1.123989993 0.477034955 0.035451253 0.031258180 0.506296008
## 918 919 920 922 924
## -0.743485270 0.268842489 0.840224040 -0.287821114 0.732234271
## 925 926 927 928 929
## 0.596015040 0.223347375 0.720216945 1.018773376 -1.108365533
## 930 931 932 934 935
## -1.446941849 0.502050375 0.845614553 0.353869338 0.970744212
## 936 937 939 940 941
## 0.730215933 0.890680510 0.852533248 0.454060853 0.735404813
## 943 945 946 948 949
## 0.834312166 -1.183108728 -0.793693027 -2.122463754 -0.147802286
## 951 952 953 954 955
## 0.326414645 0.926933791 0.425878471 0.730589004 0.177824585
## 956 958 959 960 961
## 0.454350161 0.418082009 -0.802756990 0.960223864 -0.992053246
## 962 963 964 966 969
## -12.831666531 0.984842281 0.625373559 -1.106338135 -0.082133231
## 970 971 972 973 974
## -3.709688380 0.262747266 -2.632956107 -0.495475558 0.219713350
## 975 976 977 978 979
## 0.826652026 -0.768590939 -1.488387700 -33.447881160 -1.196402615
## 980 981 982 984 986
## -1.494672644 0.568003090 0.350062139 -1.588540412 0.526514070
## 987 988 989 990 991
## -2.055446341 -0.099945344 0.777716466 -0.808128268 -2.162696454
## 993 994 995 996 997
## 0.249407304 0.776597255 0.434010316 -0.942962911 -1.663610603
## 1000 1001 1003 1004 1005
## 0.499815695 0.885746829 0.239530882 0.081956932 0.006970503
## 1006 1007 1008 1009 1012
## -0.177673941 0.951183833 0.222727381 0.037806764 1.163202734
## 1013 1014 1015 1016 1017
## 1.333938945 0.353530375 -2.335977843 -0.513126464 -1.665786290
## 1018 1019 1020 1021 1022
## -0.292724376 0.513179588 -0.367258336 -0.597237639 0.141087633
## 1023 1025 1026 1027 1028
## 0.300260777 0.863053596 -0.238519753 0.902717072 0.946783478
## 1029 1030 1031 1032 1033
## 0.521911076 -0.708489314 -1.341515542 -2.685101014 0.586058436
## 1034 1035 1036 1037 1038
## 0.645644181 0.796353787 0.193316302 0.711097846 0.465795358
## 1039 1040 1041 1042 1044
## 0.918984343 0.859475875 0.386880279 0.649393339 -0.732436292
## 1045 1046 1047 1048 1049
## 0.804633137 0.706235962 1.030750108 -0.152683406 0.422028104
## 1051 1052 1053 1054 1055
## -0.719624960 0.051153995 -0.660797323 -2.445758263 0.417520055
## 1057 1058 1059 1061 1062
## 0.672146403 0.740822165 0.181887768 -0.494540534 0.948127471
## 1063 1064 1065 1066 1067
## 0.534368573 0.898328684 0.277525159 -36.046713179 0.872121472
## 1068 1069 1070 1071 1072
## -2.226735114 0.476033668 0.571202260 0.249560289 0.130488219
## 1073 1074 1075 1076 1077
## -0.127095857 -0.098978164 -0.045762863 0.182162204 0.812494127
## 1078 1079 1080 1081 1082
## -0.814268666 -0.076528165 0.741553435 0.877701653 0.948007810
## 1083 1084 1085 1086 1089
## 0.370983174 0.393337445 -1.230029862 -2.324365959 0.706243233
## 1090 1091 1092 1093 1094
## 0.906318726 -1.229259788 -2.237134848 -0.886979604 -1.377860024
## 1095 1096 1097 1098 1099
## 0.513196251 0.664581992 -0.476293729 -0.501992554 -0.638109570
## 1100 1101 1102 1103 1104
## 0.581567833 -0.356874311 0.368768682 -0.727462018 -1.656930446
## 1105 1106 1107 1108 1109
## -0.417722076 -2.641555968 -1.039418241 -0.742354092 0.454067339
## 1110 1111 1112 1114 1115
## 1.084330040 -0.221353357 0.285612720 -1.000094896 -1.940872144
## 1116 1117 1118 1119 1120
## 0.289214374 0.772978939 -1.331928265 -0.117231401 1.104143829
## 1123 1124 1125 1126 1128
## -0.883093339 -1.839067679 0.845198314 -0.708388890 0.836373673
## 1129 1130 1131 1132 1134
## 0.821651245 0.410091967 -1.134724946 -0.917763304 -0.670559564
## 1135 1136 1137 1138 1139
## 0.009806779 -0.307773800 1.076160507 0.411352197 -0.322997730
## 1140 1141 1143 1144 1145
## -1.498534977 0.634518711 -1.083857717 -0.559668993 -0.484048814
## 1146 1147 1148 1149 1151
## 0.418550808 0.931061500 -15.495761375 -0.571581199 -0.738404470
## 1152 1154 1155 1156 1157
## -0.397860423 -0.691120278 -0.773315547 0.784802686 -0.122521490
## 1158 1159 1160 1161 1163
## 0.703037798 -0.338985084 -0.499703692 0.793125205 -3.635915155
## 1165 1166 1168 1169 1171
## 0.589423342 0.831058867 0.742890942 -0.705698329 0.802887445
## 1172 1173 1174 1175 1177
## -0.935735672 0.181368198 1.271474540 -0.246419547 -5.020520847
## 1178 1179 1180 1182 1184
## -1.312930624 0.290107014 -4.243025836 -1.601159333 0.262919487
## 1185 1186 1188 1189 1190
## -0.779671450 0.786720600 0.296386478 -3.892542011 -0.094430473
## 1191 1192 1193 1195 1196
## -0.664440355 0.613461353 0.787349654 0.635508870 -0.116028427
## 1197 1198 1199 1201 1203
## -0.615458721 -0.557383489 0.741482422 -0.501903474 0.724949776
## 1204 1205 1206 1207 1208
## 0.327325737 -0.595962868 1.017025109 1.125629392 -0.733586707
## 1209 1210 1211 1212 1213
## 0.605748653 -0.102797950 0.781886560 0.206826695 -0.387067429
## 1214 1215 1216 1217 1218
## 0.728302715 0.843043653 -2.434276384 0.755628355 -1.017501567
## 1219 1220 1221 1222 1223
## 0.764749575 0.869391100 0.901923067 0.258682293 0.625976107
## 1225 1226 1229 1231 1233
## 0.767729444 -0.316706137 -0.007046377 0.716110594 -1.178261769
## 1234 1236 1237 1238 1239
## -0.066616466 0.525672984 0.320388590 1.249776162 0.933010615
## 1240 1241 1242 1243 1244
## 0.867040286 -0.792585781 -0.856299288 -1.636906747 0.241989392
## 1246 1248 1249 1252 1253
## 0.663414916 0.872815836 0.324582616 -0.262466731 0.703944978
## 1254 1255 1256 1257 1258
## 0.227232856 -1.033903370 0.526863209 -11.215529370 0.254164067
## 1259 1260 1261 1262 1263
## -1.600258254 -1.013632747 0.212479679 0.397957885 0.376890351
## 1264 1265 1267 1269 1271
## 0.719190887 0.426801530 0.991933197 0.096255850 0.693264375
## 1272 1273 1274 1275 1276
## -0.789417029 0.988479833 0.612234446 0.703944978 0.779648920
## 1278 1279 1280 1281 1282
## -2.484353297 -1.607466257 -0.766837976 0.442973071 -0.856116837
## 1283 1284 1285 1286 1287
## 0.793658531 -1.610098940 0.248512874 1.067003388 -20.337074620
## 1288 1289 1290 1292 1293
## -0.162152812 0.397568152 -1.063280340 0.354384211 0.077420254
## 1294 1296 1297 1299 1300
## 0.360302571 -0.284901075 -1.090628122 0.412696975 -1.900390730
## 1301 1303 1307 1308 1309
## 0.241330925 0.739332457 1.070990078 0.878840101 -0.986024286
## 1310 1311 1312 1313 1314
## -0.586206107 0.737797006 -1.341174626 -4.611281181 0.486499665
## 1315 1316 1318 1320 1323
## 0.387386767 0.009790117 -0.932519056 0.314892172 0.795323034
## 1324 1325 1326 1327 1328
## -1.222814589 -2.078785291 -0.340695499 0.601240603 1.091911113
## 1329 1330 1331 1332 1333
## 0.321260879 0.833570721 -2.022790018 0.473681063 0.879485817
## 1334 1335 1337 1338 1339
## 0.708724890 0.903073481 -0.300285881 1.041466609 -0.945792754
## 1340
## 0.754650162
class(pred)
## [1] "numeric"
pv<-as.data.frame(pred)
final<-cbind(a,pred)
table(ATTORNEY)
## ATTORNEY
## 0 1
## 685 655
confusion<-table(pv>0.5,a$ATTORNEY)
confusion
##
## 0 1
## FALSE 484 262
## TRUE 94 256
aggregate<-(sum(diag(confusion))/sum(confusion))
aggregate
## [1] 0.6751825