#1
credit <- read.table(file= "http://nathanieldphillips.com/wp-content/uploads/2015/05/credit.txt", header = T, sep=",", stringsAsFactors = F)
#2
dim(credit)
## [1] 1000 17
nrow(credit)
## [1] 1000
#3
names(credit)
## [1] "checking_balance" "months_loan_duration" "credit_history"
## [4] "purpose" "amount" "savings_balance"
## [7] "employment_duration" "percent_of_income" "years_at_residence"
## [10] "age" "other_credit" "housing"
## [13] "existing_loans_count" "job" "dependents"
## [16] "phone" "default"
#4
credit$amount.eur <- credit$amount / 2
credit$amount.eur
## [1] 584.5 2975.5 1048.0 3941.0 2435.0 4527.5 1417.5 3474.0 1529.5
## [10] 2617.0 647.5 2154.0 783.5 599.5 701.5 641.0 1212.0 4036.0
## [19] 6289.5 1715.0 1067.0 1323.5 1120.5 902.0 1034.5 687.0 213.0
## [28] 204.5 1207.5 3418.0 956.5 2010.0 2933.0 632.0 737.0 2373.0
## [37] 3055.0 1050.0 612.5 229.0 1166.5 579.0 3102.0 3093.5 3071.5
## [46] 696.5 1149.5 676.0 3614.0 1036.5 1166.5 2982.5 631.0 1689.0
## [55] 1112.5 391.5 3234.0 4783.0 980.5 3114.5 695.5 768.5 976.5
## [64] 7210.5 1590.5 2595.0 1085.5 503.5 909.5 1197.0 4066.5 365.0
## [73] 582.0 2977.0 988.5 763.0 1982.5 2385.5 4718.0 1916.0 2971.5
## [82] 606.5 784.0 877.5 1157.5 706.0 647.5 6306.0 1124.5 554.0
## [91] 309.0 704.5 398.5 1808.5 659.0 7972.5 1006.0 1311.0 1168.5
## [100] 3528.5 734.5 1161.5 466.0 959.5 1222.5 5969.0 3229.0 3039.0
## [109] 3860.5 705.0 724.5 196.0 3130.0 3927.5 840.0 1789.0 3587.0
## [118] 1066.0 2140.5 1183.0 917.5 1934.0 884.0 390.5 962.0 1060.5
## [127] 350.5 319.5 930.0 1749.5 4243.5 3443.5 1354.0 992.0 5072.0
## [136] 620.0 4306.5 383.0 1364.0 940.5 354.5 2397.5 1708.0 1231.0
## [145] 1144.0 1783.0 430.0 341.0 2685.5 791.0 673.0 962.0 2924.0
## [154] 3879.0 3483.5 641.0 644.0 169.5 1756.0 949.0 1436.0 527.5
## [163] 631.0 3654.0 454.5 1489.0 565.5 788.5 1986.0 967.5 475.0
## [172] 381.5 1032.0 707.0 1707.0 3742.5 1288.5 169.0 981.5 285.5
## [181] 4786.0 2227.5 823.5 1888.5 442.0 680.0 2564.5 587.5 337.0
## [190] 1622.0 2295.5 1922.0 1957.5 1054.0 1515.5 750.5 691.0 475.5
## [199] 1380.0 2148.5 468.0 584.0 2558.5 451.0 747.5 5311.5 967.5
## [208] 712.0 3284.0 706.5 1537.0 1917.5 2646.5 954.0 1671.0 466.0
## [217] 1552.0 1956.5 1510.5 682.0 312.5 600.0 353.5 1489.0 2328.5
## [226] 1306.5 5480.5 3932.5 739.0 1574.5 2105.0 1253.5 1070.5 433.0
## [235] 772.0 911.5 7277.5 1383.5 645.5 1261.0 457.5 797.5 2302.5
## [244] 592.5 1723.5 629.0 358.5 602.0 962.5 216.5 333.0 1125.5
## [253] 1075.0 2075.5 1015.0 3709.0 1342.0 1074.5 1906.0 577.0 828.5
## [262] 801.5 2651.0 1374.0 615.5 401.0 3152.0 766.5 4489.0 499.5
## [271] 1331.0 701.0 6084.5 1530.0 5999.0 1348.5 1202.0 631.0 2305.5
## [280] 950.5 1684.0 787.0 722.5 760.0 1939.0 5361.0 2394.0 3791.0
## [289] 546.0 512.0 538.0 4699.0 3209.5 2398.0 3814.5 4980.0 2337.5
## [298] 643.5 1257.5 1372.5 336.0 1902.0 672.0 519.0 5063.5 771.5
## [307] 2405.5 363.5 618.5 138.0 2690.5 2755.5 1874.5 342.5 747.0
## [316] 1373.0 354.0 2175.5 350.5 1821.5 2124.5 969.0 1455.0 1329.5
## [325] 514.0 1699.0 2900.5 762.5 2236.5 534.0 3307.5 932.0 3704.0
## [334] 5795.0 2055.0 1692.0 1050.5 637.5 2084.5 760.5 2871.5 1799.5
## [343] 1606.5 2219.5 1974.5 729.5 441.0 1879.0 871.5 568.0 618.0
## [352] 479.5 1614.5 3099.5 363.5 623.0 1165.5 2231.5 388.0 1203.0
## [361] 619.5 1699.5 1123.5 883.0 1236.5 771.0 1925.0 1825.0 1723.0
## [370] 1500.5 1539.5 3035.0 1073.0 6878.0 7391.0 3842.5 1160.0 423.0
## [379] 7159.0 181.0 1106.0 6488.0 641.5 665.0 2136.0 1119.0 563.0
## [388] 3687.0 1163.0 724.5 910.0 491.5 1624.5 978.5 1203.0 5880.0
## [397] 1289.0 1174.0 611.5 758.0 736.5 943.5 4324.0 401.0 1449.5
## [406] 1019.5 1098.5 526.5 1617.5 469.5 983.5 3626.5 1146.0 798.5
## [415] 690.5 2921.0 1289.5 4235.5 1391.0 521.0 1593.0 1014.0 479.0
## [424] 795.5 1381.0 1389.5 1371.5 574.5 656.5 595.0 1724.0 5664.0
## [433] 936.0 1029.0 1068.0 742.0 330.0 643.5 1697.0 304.5 942.0
## [442] 810.0 1314.5 359.5 2548.0 622.0 921.0 1288.0 712.0 756.0
## [451] 5527.0 259.0 1379.5 1335.0 2408.5 1339.5 1952.5 1693.0 171.5
## [460] 2297.0 1810.0 860.5 1508.5 377.0 975.0 1462.0 829.5 3619.0
## [469] 1382.0 2339.5 1546.0 224.0 327.0 619.0 622.5 1557.0 1284.5
## [478] 2576.0 518.5 739.0 1786.5 600.5 1811.0 480.0 581.5 604.5
## [487] 1538.5 1878.5 709.0 1759.0 967.0 4159.0 618.5 184.0 1061.0
## [496] 1498.0 4517.0 792.5 650.5 661.5 1561.5 2746.5 563.0 608.0
## [505] 603.5 654.5 1180.0 3425.0 706.5 4294.0 379.5 2343.0 1343.5
## [514] 292.5 1127.5 304.5 680.5 3563.5 601.5 350.0 2753.5 1595.0
## [523] 3559.5 1744.0 556.5 3983.0 766.0 751.5 1151.0 331.0 1136.5
## [532] 1315.5 751.5 655.5 1552.5 1159.5 687.0 1806.0 3881.5 1524.5
## [541] 767.0 1016.0 3175.0 1432.0 627.5 666.5 1011.0 776.0 313.0
## [550] 4429.0 498.0 875.0 3499.5 997.5 599.5 665.5 1139.0 2501.5
## [559] 1776.0 964.0 1482.0 773.0 341.5 6194.5 2356.0 776.5 686.0
## [568] 1289.0 1989.5 3379.0 1617.0 2977.0 2716.5 403.0 541.0 1394.0
## [577] 1465.0 963.5 1410.0 468.5 528.0 1562.0 694.0 1192.0 1066.5
## [586] 1019.5 1399.5 644.5 608.5 1123.0 192.5 982.5 786.0 1359.0
## [595] 679.0 465.5 721.0 2120.5 1387.5 1931.5 1164.5 459.0 918.5
## [604] 1674.5 637.5 1414.0 2263.0 1335.5 1025.5 650.0 370.5 620.0
## [613] 1678.5 1816.0 904.0 6102.0 4578.5 1838.0 1720.5 320.0 1826.0
## [622] 765.0 1957.0 929.0 1300.0 989.5 1058.0 718.5 2021.0 1916.0
## [631] 1830.0 776.5 722.0 990.0 677.5 696.5 688.0 7826.5 746.5
## [640] 2185.0 375.0 654.0 2311.5 925.5 940.0 3990.0 2291.5 693.0
## [649] 473.5 342.0 3738.0 961.0 1151.5 4043.0 1173.0 1986.5 444.0
## [658] 5111.0 2110.5 3180.5 648.5 450.0 1120.5 525.0 523.5 3157.0
## [667] 1748.0 1804.5 2421.5 1508.5 2069.5 2871.0 5183.0 1040.0 1290.0
## [676] 2265.0 2575.0 2797.5 1192.0 726.5 769.0 1139.5 739.0 2551.5
## [685] 4928.5 3263.5 673.5 1431.0 1376.5 1825.5 487.5 1315.5 1448.0
## [694] 2358.0 1142.0 618.0 551.5 463.0 900.0 952.5 561.5 3165.5
## [703] 688.5 1251.5 1264.0 2662.0 3280.0 1484.5 603.0 1059.0 314.5
## [712] 599.0 1238.0 569.0 7013.5 3798.0 1538.5 752.5 1574.0 3074.0
## [721] 668.5 216.5 614.0 395.0 1285.0 125.0 658.0 941.0 3208.0
## [730] 637.5 3201.5 993.5 380.0 1301.5 1690.0 1995.0 5780.0 2190.0
## [739] 3380.5 2140.0 1162.5 524.0 1580.0 1241.5 7089.5 898.5 1255.5
## [748] 637.0 2624.0 1514.5 214.0 488.0 420.5 2885.5 777.5 642.5
## [757] 649.5 635.5 696.5 345.5 2522.5 1062.0 1107.0 6340.0 1231.5
## [766] 577.5 1554.0 1450.5 1808.5 827.5 1406.0 4032.5 1637.5 1111.5
## [775] 740.0 685.5 1767.5 1754.5 2855.5 1936.0 2466.5 970.0 705.0
## [784] 418.0 3234.0 970.5 1337.5 1375.5 3112.0 2999.0 594.0 3156.5
## [793] 610.5 1446.0 1531.0 1150.5 3755.5 629.0 358.5 774.5 798.5
## [802] 897.5 2136.0 488.0 3736.0 4635.5 295.0 465.0 4641.5 889.0
## [811] 453.5 242.0 4814.5 1525.5 1965.5 3716.0 669.0 777.0 7928.5
## [820] 672.5 550.5 1508.0 1356.0 365.5 1890.0 801.0 1983.0 2082.5
## [829] 4167.5 3340.5 1187.5 608.0 5908.0 2542.0 1163.5 541.0 443.0
## [838] 300.5 1478.5 1305.5 2589.5 1496.5 971.5 779.5 1711.0 1988.0
## [847] 3380.5 624.5 682.0 354.5 1117.5 2021.0 735.5 721.0 5437.5
## [856] 737.0 447.0 1671.5 1979.5 1788.5 2902.0 1084.5 1219.5 2263.0
## [865] 1105.0 1110.5 1194.5 1665.5 3704.5 326.0 3839.0 671.5 691.0
## [874] 437.0 1795.0 661.0 970.0 1797.5 711.0 3371.0 3907.0 4638.5
## [883] 1090.5 549.0 2028.5 397.5 1412.5 7836.0 3307.0 3912.0 1221.0
## [892] 914.5 1085.5 2900.0 584.5 4473.5 1303.0 796.0 1093.0 2076.5
## [901] 1312.5 1742.5 5238.5 693.0 639.0 553.5 1881.5 1855.5 1797.0
## [910] 1597.5 2227.0 2368.0 1495.5 1071.0 1580.5 9212.0 1424.0 7448.0
## [919] 1179.5 1672.5 908.5 6374.5 683.0 1001.0 3436.0 348.5 524.5
## [928] 5148.5 933.5 672.0 873.5 835.0 612.0 261.0 749.0 959.5
## [937] 372.5 1031.5 3144.0 3421.0 1763.5 773.0 464.5 727.5 922.5
## [946] 4179.0 1674.5 1429.5 766.5 1810.5 1795.0 1072.5 2056.5 5487.0
## [955] 946.5 615.5 1828.0 577.0 2003.0 1534.5 870.0 1176.5 1778.0
## [964] 1198.5 227.0 857.5 1260.0 1784.0 3583.0 1969.5 757.0 3696.5
## [973] 596.5 3648.5 1415.5 629.0 376.5 1213.5 1269.0 632.0 4193.0
## [982] 2422.0 1461.5 4114.5 1014.0 716.5 3144.5 704.5 3289.5 871.5
## [991] 1782.5 784.5 968.0 1979.5 1195.0 868.0 1928.5 402.0 922.5
## [1000] 2288.0
head(credit)
## checking_balance months_loan_duration credit_history
## 1 < 0 DM 6 critical
## 2 1 - 200 DM 48 good
## 3 unknown 12 critical
## 4 < 0 DM 42 good
## 5 < 0 DM 24 poor
## 6 unknown 36 good
## purpose amount savings_balance employment_duration
## 1 furniture/appliances 1169 unknown > 7 years
## 2 furniture/appliances 5951 < 100 DM 1 - 4 years
## 3 education 2096 < 100 DM 4 - 7 years
## 4 furniture/appliances 7882 < 100 DM 4 - 7 years
## 5 car 4870 < 100 DM 1 - 4 years
## 6 education 9055 unknown 1 - 4 years
## percent_of_income years_at_residence age other_credit housing
## 1 4 4 67 none own
## 2 2 2 22 none own
## 3 2 3 49 none own
## 4 2 4 45 none other
## 5 3 4 53 none other
## 6 2 4 35 none other
## existing_loans_count job dependents phone default amount.eur
## 1 2 skilled 1 yes no 584.5
## 2 1 skilled 1 no yes 2975.5
## 3 1 unskilled 2 no no 1048.0
## 4 1 skilled 2 no no 3941.0
## 5 2 skilled 2 no yes 2435.0
## 6 1 unskilled 2 yes no 4527.5
#5
summary(credit$amount.eur)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 125.0 682.8 1160.0 1636.0 1986.0 9212.0
mean(credit$amount.eur)
## [1] 1635.629
median(credit$amount.eur)
## [1] 1159.75
sd(credit$amount.eur)
## [1] 1411.368
#6
head(credit)
## checking_balance months_loan_duration credit_history
## 1 < 0 DM 6 critical
## 2 1 - 200 DM 48 good
## 3 unknown 12 critical
## 4 < 0 DM 42 good
## 5 < 0 DM 24 poor
## 6 unknown 36 good
## purpose amount savings_balance employment_duration
## 1 furniture/appliances 1169 unknown > 7 years
## 2 furniture/appliances 5951 < 100 DM 1 - 4 years
## 3 education 2096 < 100 DM 4 - 7 years
## 4 furniture/appliances 7882 < 100 DM 4 - 7 years
## 5 car 4870 < 100 DM 1 - 4 years
## 6 education 9055 unknown 1 - 4 years
## percent_of_income years_at_residence age other_credit housing
## 1 4 4 67 none own
## 2 2 2 22 none own
## 3 2 3 49 none own
## 4 2 4 45 none other
## 5 3 4 53 none other
## 6 2 4 35 none other
## existing_loans_count job dependents phone default amount.eur
## 1 2 skilled 1 yes no 584.5
## 2 1 skilled 1 no yes 2975.5
## 3 1 unskilled 2 no no 1048.0
## 4 1 skilled 2 no no 3941.0
## 5 2 skilled 2 no yes 2435.0
## 6 1 unskilled 2 yes no 4527.5
credit$purpose
## [1] "furniture/appliances" "furniture/appliances" "education"
## [4] "furniture/appliances" "car" "education"
## [7] "furniture/appliances" "car" "furniture/appliances"
## [10] "car" "car" "business"
## [13] "furniture/appliances" "car" "car"
## [16] "furniture/appliances" "furniture/appliances" "business"
## [19] "car" "furniture/appliances" "car"
## [22] "furniture/appliances" "car" "car"
## [25] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [28] "furniture/appliances" "furniture/appliances" "business"
## [31] "business" "furniture/appliances" "car"
## [34] "business" "furniture/appliances" "furniture/appliances"
## [37] "education" "furniture/appliances" "furniture/appliances"
## [40] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [43] "renovations" "car" "car"
## [46] "car" "furniture/appliances" "car"
## [49] "car" "furniture/appliances" "furniture/appliances"
## [52] "car" "furniture/appliances" "car"
## [55] "car" "car" "furniture/appliances"
## [58] "furniture/appliances" "car" "furniture/appliances"
## [61] "business" "furniture/appliances" "business"
## [64] "business" "furniture/appliances" "renovations"
## [67] "furniture/appliances" "car" "education"
## [70] "furniture/appliances" "car" "furniture/appliances"
## [73] "car" "business" "education"
## [76] "car" "furniture/appliances" "furniture/appliances"
## [79] "car" "furniture/appliances" "furniture/appliances"
## [82] "furniture/appliances" "business" "car"
## [85] "furniture/appliances" "business" "furniture/appliances"
## [88] "education" "car" "renovations"
## [91] "furniture/appliances" "car" "furniture/appliances"
## [94] "furniture/appliances" "car" "business"
## [97] "education" "business" "furniture/appliances"
## [100] "car" "car" "furniture/appliances"
## [103] "furniture/appliances" "furniture/appliances" "car"
## [106] "car" "car" "car"
## [109] "furniture/appliances" "business" "business"
## [112] "education" "car" "car"
## [115] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [118] "furniture/appliances" "furniture/appliances" "car"
## [121] "furniture/appliances" "car" "furniture/appliances"
## [124] "car" "furniture/appliances" "car"
## [127] "furniture/appliances" "renovations" "car"
## [130] "car" "car" "education"
## [133] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [136] "furniture/appliances" "car" "furniture/appliances"
## [139] "furniture/appliances" "furniture/appliances" "car"
## [142] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [145] "furniture/appliances" "business" "car"
## [148] "car" "furniture/appliances" "furniture/appliances"
## [151] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [154] "car" "business" "furniture/appliances"
## [157] "renovations" "education" "car"
## [160] "furniture/appliances" "furniture/appliances" "car"
## [163] "furniture/appliances" "car" "car"
## [166] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [169] "furniture/appliances" "business" "car"
## [172] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [175] "education" "car" "furniture/appliances"
## [178] "furniture/appliances" "furniture/appliances" "car"
## [181] "business" "business" "car"
## [184] "furniture/appliances" "car" "furniture/appliances"
## [187] "car" "car" "furniture/appliances"
## [190] "furniture/appliances" "business" "business"
## [193] "business" "furniture/appliances" "furniture/appliances"
## [196] "education" "furniture/appliances" "furniture/appliances"
## [199] "car" "furniture/appliances" "education"
## [202] "car" "business" "education"
## [205] "car" "car" "furniture/appliances"
## [208] "furniture/appliances" "business" "car"
## [211] "furniture/appliances" "furniture/appliances" "business"
## [214] "business" "furniture/appliances" "education"
## [217] "business" "furniture/appliances" "furniture/appliances"
## [220] "car" "furniture/appliances" "education"
## [223] "furniture/appliances" "business" "car"
## [226] "renovations" "furniture/appliances" "furniture/appliances"
## [229] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [232] "car" "furniture/appliances" "furniture/appliances"
## [235] "furniture/appliances" "furniture/appliances" "car"
## [238] "business" "furniture/appliances" "furniture/appliances"
## [241] "car" "furniture/appliances" "car"
## [244] "business" "education" "business"
## [247] "furniture/appliances" "car" "furniture/appliances"
## [250] "furniture/appliances" "car" "furniture/appliances"
## [253] "car" "furniture/appliances" "furniture/appliances"
## [256] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [259] "car" "furniture/appliances" "furniture/appliances"
## [262] "furniture/appliances" "car" "education"
## [265] "car" "furniture/appliances" "business"
## [268] "furniture/appliances" "car" "furniture/appliances"
## [271] "car" "furniture/appliances" "car"
## [274] "furniture/appliances" "renovations" "furniture/appliances"
## [277] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [280] "furniture/appliances" "car" "furniture/appliances"
## [283] "furniture/appliances" "furniture/appliances" "car"
## [286] "car" "car" "car"
## [289] "furniture/appliances" "furniture/appliances" "business"
## [292] "car" "car" "car"
## [295] "business" "furniture/appliances" "car"
## [298] "car" "furniture/appliances" "furniture/appliances"
## [301] "car" "furniture/appliances" "car"
## [304] "car" "car" "furniture/appliances"
## [307] "car" "furniture/appliances" "furniture/appliances"
## [310] "car" "car" "furniture/appliances"
## [313] "furniture/appliances" "car" "car"
## [316] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [319] "education" "furniture/appliances" "car"
## [322] "furniture/appliances" "car" "furniture/appliances"
## [325] "car" "car" "furniture/appliances"
## [328] "car" "furniture/appliances" "furniture/appliances"
## [331] "car" "education" "car"
## [334] "car" "furniture/appliances" "furniture/appliances"
## [337] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [340] "furniture/appliances" "education" "furniture/appliances"
## [343] "furniture/appliances" "business" "car"
## [346] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [349] "business" "education" "furniture/appliances"
## [352] "furniture/appliances" "car" "furniture/appliances"
## [355] "education" "car" "furniture/appliances"
## [358] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [361] "education" "furniture/appliances" "car"
## [364] "furniture/appliances" "furniture/appliances" "business"
## [367] "car" "furniture/appliances" "furniture/appliances"
## [370] "furniture/appliances" "car" "furniture/appliances"
## [373] "furniture/appliances" "car" "car"
## [376] "business" "furniture/appliances" "furniture/appliances"
## [379] "car" "car" "furniture/appliances"
## [382] "car" "car" "car"
## [385] "business" "furniture/appliances" "furniture/appliances"
## [388] "furniture/appliances" "business" "business"
## [391] "car" "furniture/appliances" "car"
## [394] "furniture/appliances" "furniture/appliances" "education"
## [397] "furniture/appliances" "furniture/appliances" "car"
## [400] "furniture/appliances" "furniture/appliances" "business"
## [403] "business" "car" "car"
## [406] "furniture/appliances" "car" "furniture/appliances"
## [409] "furniture/appliances" "car" "furniture/appliances"
## [412] "car" "business" "car"
## [415] "car" "car" "car"
## [418] "education" "car" "car"
## [421] "car" "car" "car"
## [424] "furniture/appliances" "furniture/appliances" "car"
## [427] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [430] "renovations" "business" "car"
## [433] "furniture/appliances" "renovations" "furniture/appliances"
## [436] "furniture/appliances" "renovations" "car"
## [439] "renovations" "business" "car"
## [442] "furniture/appliances" "car" "education"
## [445] "furniture/appliances" "education" "car"
## [448] "furniture/appliances" "furniture/appliances" "renovations"
## [451] "car" "furniture/appliances" "furniture/appliances"
## [454] "car" "car" "car"
## [457] "car" "car" "furniture/appliances"
## [460] "furniture/appliances" "furniture/appliances" "car"
## [463] "furniture/appliances" "education" "business"
## [466] "car" "furniture/appliances" "furniture/appliances"
## [469] "business" "car" "furniture/appliances"
## [472] "education" "car" "education"
## [475] "furniture/appliances" "furniture/appliances" "car"
## [478] "furniture/appliances" "business" "furniture/appliances"
## [481] "furniture/appliances" "car" "furniture/appliances"
## [484] "furniture/appliances" "car" "car"
## [487] "furniture/appliances" "car" "car"
## [490] "car" "furniture/appliances" "business"
## [493] "furniture/appliances" "furniture/appliances" "car"
## [496] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [499] "furniture/appliances" "car" "car"
## [502] "car" "furniture/appliances" "furniture/appliances"
## [505] "car" "car" "car"
## [508] "car" "furniture/appliances" "car"
## [511] "car" "car" "business"
## [514] "furniture/appliances" "car" "car"
## [517] "car" "furniture/appliances" "car"
## [520] "furniture/appliances" "renovations" "furniture/appliances"
## [523] "furniture/appliances" "car" "furniture/appliances"
## [526] "car" "education" "furniture/appliances"
## [529] "furniture/appliances" "car" "education"
## [532] "car" "car" "furniture/appliances"
## [535] "furniture/appliances" "education" "car"
## [538] "furniture/appliances" "car" "furniture/appliances"
## [541] "furniture/appliances" "car" "furniture/appliances"
## [544] "furniture/appliances" "car" "car"
## [547] "car" "furniture/appliances" "furniture/appliances"
## [550] "car" "renovations" "furniture/appliances"
## [553] "furniture/appliances" "car" "education"
## [556] "furniture/appliances" "car" "car"
## [559] "furniture/appliances" "furniture/appliances" "car"
## [562] "furniture/appliances" "furniture/appliances" "car"
## [565] "business" "furniture/appliances" "car"
## [568] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [571] "furniture/appliances" "furniture/appliances" "car"
## [574] "business" "furniture/appliances" "furniture/appliances"
## [577] "furniture/appliances" "education" "car"
## [580] "education" "car" "car"
## [583] "furniture/appliances" "renovations" "car"
## [586] "furniture/appliances" "car" "furniture/appliances"
## [589] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [592] "car" "business" "car"
## [595] "car" "car" "car"
## [598] "business" "car" "business"
## [601] "furniture/appliances" "furniture/appliances" "education"
## [604] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [607] "business" "furniture/appliances" "furniture/appliances"
## [610] "car" "furniture/appliances" "car"
## [613] "furniture/appliances" "car" "furniture/appliances"
## [616] "business" "furniture/appliances" "car"
## [619] "furniture/appliances" "car" "business"
## [622] "car" "business" "furniture/appliances"
## [625] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [628] "car" "furniture/appliances" "education"
## [631] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [634] "furniture/appliances" "car" "education"
## [637] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [640] "furniture/appliances" "education" "renovations"
## [643] "education" "furniture/appliances" "furniture/appliances"
## [646] "business" "furniture/appliances" "car"
## [649] "car" "education" "education"
## [652] "furniture/appliances" "car" "car"
## [655] "car" "car" "car"
## [658] "furniture/appliances" "business" "furniture/appliances"
## [661] "furniture/appliances" "car" "furniture/appliances"
## [664] "furniture/appliances" "education" "car"
## [667] "furniture/appliances" "business" "car"
## [670] "furniture/appliances" "business" "business"
## [673] "car" "car" "business"
## [676] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [679] "furniture/appliances" "furniture/appliances" "education"
## [682] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [685] "business" "car" "furniture/appliances"
## [688] "car" "furniture/appliances" "car"
## [691] "furniture/appliances" "renovations" "furniture/appliances"
## [694] "car" "furniture/appliances" "car"
## [697] "furniture/appliances" "car" "furniture/appliances"
## [700] "education" "furniture/appliances" "car"
## [703] "furniture/appliances" "business" "business"
## [706] "car" "car" "furniture/appliances"
## [709] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [712] "education" "car" "furniture/appliances"
## [715] "car" "car" "furniture/appliances"
## [718] "furniture/appliances" "furniture/appliances" "car"
## [721] "furniture/appliances" "education" "car"
## [724] "furniture/appliances" "car" "car"
## [727] "furniture/appliances" "furniture/appliances" "business"
## [730] "business" "furniture/appliances" "furniture/appliances"
## [733] "furniture/appliances" "car" "car"
## [736] "furniture/appliances" "car" "car"
## [739] "car" "business" "car"
## [742] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [745] "furniture/appliances" "business" "car"
## [748] "car" "car" "car"
## [751] "furniture/appliances" "car" "business"
## [754] "furniture/appliances" "renovations" "car"
## [757] "car" "furniture/appliances" "car"
## [760] "car" "car" "furniture/appliances"
## [763] "furniture/appliances" "car" "car"
## [766] "furniture/appliances" "furniture/appliances" "car"
## [769] "furniture/appliances" "furniture/appliances" "car"
## [772] "education" "car" "furniture/appliances"
## [775] "car" "car" "car"
## [778] "furniture/appliances" "car" "renovations"
## [781] "furniture/appliances" "car" "education"
## [784] "car" "car" "business"
## [787] "furniture/appliances" "car" "education"
## [790] "education" "business" "car"
## [793] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [796] "furniture/appliances" "car" "furniture/appliances"
## [799] "car" "car" "education"
## [802] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [805] "car" "car" "furniture/appliances"
## [808] "furniture/appliances" "car" "car"
## [811] "business" "furniture/appliances" "car"
## [814] "furniture/appliances" "car" "car"
## [817] "furniture/appliances" "furniture/appliances" "car"
## [820] "furniture/appliances" "car" "furniture/appliances"
## [823] "furniture/appliances" "car" "furniture/appliances"
## [826] "car" "car" "business"
## [829] "car" "business" "business"
## [832] "car" "business" "furniture/appliances"
## [835] "furniture/appliances" "car" "furniture/appliances"
## [838] "furniture/appliances" "car" "furniture/appliances"
## [841] "furniture/appliances" "car" "renovations"
## [844] "business" "furniture/appliances" "furniture/appliances"
## [847] "car" "car" "furniture/appliances"
## [850] "furniture/appliances" "car" "car"
## [853] "furniture/appliances" "car" "car"
## [856] "car" "education" "furniture/appliances"
## [859] "car" "car" "car"
## [862] "business" "furniture/appliances" "furniture/appliances"
## [865] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [868] "furniture/appliances" "business" "furniture/appliances"
## [871] "furniture/appliances" "car" "business"
## [874] "furniture/appliances" "furniture/appliances" "car"
## [877] "furniture/appliances" "furniture/appliances" "car"
## [880] "furniture/appliances" "car" "car"
## [883] "car" "furniture/appliances" "furniture/appliances"
## [886] "education" "business" "business"
## [889] "car" "car" "business"
## [892] "furniture/appliances" "car" "car"
## [895] "furniture/appliances" "car" "furniture/appliances"
## [898] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [901] "car" "car" "car"
## [904] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [907] "car" "education" "car"
## [910] "car" "furniture/appliances" "furniture/appliances"
## [913] "furniture/appliances" "business" "business"
## [916] "car" "car" "car"
## [919] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [922] "furniture/appliances" "furniture/appliances" "car"
## [925] "furniture/appliances" "car" "furniture/appliances"
## [928] "car" "furniture/appliances" "car"
## [931] "furniture/appliances" "furniture/appliances" "car"
## [934] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [937] "furniture/appliances" "furniture/appliances" "education"
## [940] "car" "car" "car"
## [943] "furniture/appliances" "car" "furniture/appliances"
## [946] "car" "furniture/appliances" "car"
## [949] "furniture/appliances" "furniture/appliances" "business"
## [952] "business" "car" "furniture/appliances"
## [955] "car" "furniture/appliances" "furniture/appliances"
## [958] "furniture/appliances" "car" "furniture/appliances"
## [961] "furniture/appliances" "car" "car"
## [964] "furniture/appliances" "renovations" "furniture/appliances"
## [967] "furniture/appliances" "furniture/appliances" "furniture/appliances"
## [970] "car" "renovations" "car"
## [973] "car" "business" "furniture/appliances"
## [976] "furniture/appliances" "furniture/appliances" "business"
## [979] "car" "car" "furniture/appliances"
## [982] "business" "car" "car"
## [985] "furniture/appliances" "furniture/appliances" "business"
## [988] "furniture/appliances" "car" "furniture/appliances"
## [991] "education" "furniture/appliances" "furniture/appliances"
## [994] "furniture/appliances" "car" "furniture/appliances"
## [997] "car" "furniture/appliances" "furniture/appliances"
## [1000] "car"
table(credit$purpose)
##
## business car education
## 97 349 59
## furniture/appliances renovations
## 473 22
#7
(table(credit$purpose) / length(credit$purpose) *100)
##
## business car education
## 9.7 34.9 5.9
## furniture/appliances renovations
## 47.3 2.2
mean(credit$purpose %in% c("car", "education"))
## [1] 0.408
#8
head(credit)
## checking_balance months_loan_duration credit_history
## 1 < 0 DM 6 critical
## 2 1 - 200 DM 48 good
## 3 unknown 12 critical
## 4 < 0 DM 42 good
## 5 < 0 DM 24 poor
## 6 unknown 36 good
## purpose amount savings_balance employment_duration
## 1 furniture/appliances 1169 unknown > 7 years
## 2 furniture/appliances 5951 < 100 DM 1 - 4 years
## 3 education 2096 < 100 DM 4 - 7 years
## 4 furniture/appliances 7882 < 100 DM 4 - 7 years
## 5 car 4870 < 100 DM 1 - 4 years
## 6 education 9055 unknown 1 - 4 years
## percent_of_income years_at_residence age other_credit housing
## 1 4 4 67 none own
## 2 2 2 22 none own
## 3 2 3 49 none own
## 4 2 4 45 none other
## 5 3 4 53 none other
## 6 2 4 35 none other
## existing_loans_count job dependents phone default amount.eur
## 1 2 skilled 1 yes no 584.5
## 2 1 skilled 1 no yes 2975.5
## 3 1 unskilled 2 no no 1048.0
## 4 1 skilled 2 no no 3941.0
## 5 2 skilled 2 no yes 2435.0
## 6 1 unskilled 2 yes no 4527.5
credit$credit_history
## [1] "critical" "good" "critical" "good" "poor"
## [6] "good" "good" "good" "good" "critical"
## [11] "good" "good" "good" "critical" "good"
## [16] "good" "critical" "perfect" "good" "good"
## [21] "critical" "good" "critical" "critical" "critical"
## [26] "good" "perfect" "very good" "good" "poor"
## [31] "good" "good" "good" "critical" "good"
## [36] "critical" "critical" "good" "good" "good"
## [41] "good" "good" "poor" "critical" "critical"
## [46] "critical" "good" "good" "critical" "good"
## [51] "poor" "poor" "good" "good" "poor"
## [56] "very good" "good" "critical" "good" "critical"
## [61] "good" "critical" "perfect" "perfect" "good"
## [66] "good" "good" "good" "good" "good"
## [71] "good" "critical" "critical" "critical" "good"
## [76] "critical" "good" "poor" "perfect" "good"
## [81] "good" "good" "good" "good" "good"
## [86] "critical" "critical" "good" "good" "perfect"
## [91] "critical" "critical" "critical" "critical" "good"
## [96] "perfect" "critical" "good" "critical" "poor"
## [101] "good" "good" "poor" "critical" "good"
## [106] "critical" "very good" "good" "good" "good"
## [111] "poor" "good" "good" "critical" "good"
## [116] "critical" "good" "critical" "critical" "critical"
## [121] "good" "critical" "good" "critical" "good"
## [126] "critical" "good" "good" "critical" "critical"
## [131] "good" "poor" "good" "good" "good"
## [136] "critical" "poor" "good" "critical" "good"
## [141] "good" "good" "good" "good" "critical"
## [146] "very good" "critical" "critical" "critical" "critical"
## [151] "good" "good" "good" "critical" "poor"
## [156] "good" "critical" "very good" "good" "critical"
## [161] "critical" "critical" "good" "good" "good"
## [166] "good" "good" "good" "good" "critical"
## [171] "perfect" "good" "poor" "good" "poor"
## [176] "very good" "good" "critical" "good" "critical"
## [181] "poor" "poor" "very good" "critical" "critical"
## [186] "critical" "very good" "critical" "good" "perfect"
## [191] "good" "perfect" "good" "good" "good"
## [196] "critical" "critical" "good" "good" "poor"
## [201] "critical" "good" "poor" "good" "critical"
## [206] "critical" "critical" "critical" "good" "good"
## [211] "critical" "good" "perfect" "poor" "critical"
## [216] "critical" "perfect" "good" "good" "good"
## [221] "good" "good" "good" "poor" "good"
## [226] "perfect" "good" "good" "good" "good"
## [231] "good" "good" "good" "good" "critical"
## [236] "good" "good" "good" "critical" "good"
## [241] "good" "good" "perfect" "critical" "very good"
## [246] "good" "critical" "perfect" "good" "good"
## [251] "critical" "good" "good" "poor" "good"
## [256] "poor" "critical" "very good" "good" "critical"
## [261] "good" "good" "critical" "critical" "critical"
## [266] "good" "critical" "good" "good" "good"
## [271] "good" "critical" "very good" "good" "good"
## [276] "good" "critical" "good" "good" "good"
## [281] "critical" "good" "very good" "critical" "critical"
## [286] "good" "good" "poor" "good" "poor"
## [291] "good" "good" "critical" "critical" "critical"
## [296] "good" "good" "good" "good" "critical"
## [301] "good" "perfect" "critical" "critical" "critical"
## [306] "good" "good" "good" "good" "good"
## [311] "good" "good" "good" "good" "good"
## [316] "very good" "good" "good" "critical" "poor"
## [321] "critical" "good" "good" "good" "critical"
## [326] "critical" "critical" "good" "good" "good"
## [331] "critical" "critical" "good" "critical" "perfect"
## [336] "critical" "good" "good" "good" "good"
## [341] "critical" "good" "good" "good" "good"
## [346] "critical" "critical" "good" "poor" "critical"
## [351] "good" "good" "critical" "perfect" "good"
## [356] "good" "critical" "poor" "good" "good"
## [361] "good" "good" "poor" "good" "good"
## [366] "good" "critical" "good" "good" "good"
## [371] "good" "critical" "critical" "critical" "very good"
## [376] "very good" "poor" "poor" "good" "critical"
## [381] "good" "good" "good" "good" "poor"
## [386] "critical" "good" "critical" "critical" "good"
## [391] "good" "good" "good" "critical" "critical"
## [396] "poor" "good" "critical" "good" "critical"
## [401] "good" "critical" "poor" "poor" "poor"
## [406] "good" "critical" "good" "good" "critical"
## [411] "good" "critical" "critical" "good" "good"
## [416] "critical" "good" "poor" "good" "good"
## [421] "good" "good" "critical" "poor" "good"
## [426] "good" "critical" "critical" "good" "critical"
## [431] "good" "good" "critical" "critical" "good"
## [436] "good" "good" "critical" "critical" "very good"
## [441] "good" "good" "poor" "good" "critical"
## [446] "critical" "good" "good" "good" "poor"
## [451] "critical" "good" "perfect" "good" "good"
## [456] "good" "critical" "good" "good" "good"
## [461] "good" "good" "good" "good" "good"
## [466] "good" "poor" "poor" "poor" "poor"
## [471] "good" "good" "good" "good" "critical"
## [476] "perfect" "good" "good" "good" "critical"
## [481] "critical" "good" "good" "poor" "critical"
## [486] "poor" "good" "good" "good" "good"
## [491] "critical" "perfect" "critical" "good" "critical"
## [496] "good" "good" "critical" "good" "critical"
## [501] "good" "good" "good" "critical" "good"
## [506] "good" "critical" "very good" "good" "good"
## [511] "good" "good" "good" "poor" "good"
## [516] "critical" "critical" "critical" "good" "critical"
## [521] "critical" "good" "perfect" "good" "good"
## [526] "good" "critical" "critical" "good" "good"
## [531] "good" "good" "poor" "good" "good"
## [536] "critical" "good" "critical" "good" "good"
## [541] "good" "poor" "good" "good" "critical"
## [546] "poor" "critical" "good" "very good" "critical"
## [551] "critical" "very good" "good" "critical" "good"
## [556] "good" "perfect" "perfect" "very good" "critical"
## [561] "good" "very good" "poor" "good" "poor"
## [566] "poor" "good" "critical" "good" "good"
## [571] "good" "critical" "good" "good" "good"
## [576] "critical" "good" "critical" "critical" "good"
## [581] "critical" "critical" "good" "good" "good"
## [586] "good" "critical" "good" "good" "critical"
## [591] "critical" "poor" "good" "good" "very good"
## [596] "very good" "good" "perfect" "critical" "poor"
## [601] "good" "good" "very good" "good" "good"
## [606] "very good" "critical" "good" "good" "good"
## [611] "good" "good" "good" "very good" "poor"
## [616] "perfect" "poor" "critical" "good" "good"
## [621] "critical" "critical" "good" "good" "good"
## [626] "good" "good" "very good" "critical" "good"
## [631] "good" "very good" "good" "good" "good"
## [636] "good" "good" "poor" "good" "poor"
## [641] "good" "good" "good" "critical" "critical"
## [646] "poor" "perfect" "good" "good" "good"
## [651] "good" "good" "good" "poor" "critical"
## [656] "good" "good" "good" "perfect" "critical"
## [661] "good" "good" "good" "poor" "critical"
## [666] "critical" "very good" "very good" "critical" "critical"
## [671] "critical" "good" "good" "critical" "poor"
## [676] "critical" "critical" "good" "good" "good"
## [681] "good" "good" "poor" "critical" "poor"
## [686] "good" "critical" "poor" "good" "good"
## [691] "critical" "good" "good" "critical" "good"
## [696] "good" "good" "critical" "critical" "good"
## [701] "good" "critical" "good" "poor" "good"
## [706] "good" "good" "perfect" "good" "good"
## [711] "critical" "very good" "good" "critical" "good"
## [716] "critical" "critical" "good" "critical" "perfect"
## [721] "perfect" "very good" "good" "good" "good"
## [726] "critical" "critical" "good" "very good" "critical"
## [731] "poor" "good" "good" "good" "critical"
## [736] "very good" "good" "good" "critical" "perfect"
## [741] "very good" "very good" "good" "very good" "critical"
## [746] "critical" "good" "good" "good" "good"
## [751] "good" "good" "good" "critical" "poor"
## [756] "good" "critical" "critical" "good" "critical"
## [761] "critical" "critical" "good" "critical" "critical"
## [766] "good" "good" "good" "critical" "critical"
## [771] "good" "critical" "critical" "critical" "critical"
## [776] "good" "critical" "good" "critical" "good"
## [781] "critical" "critical" "perfect" "good" "good"
## [786] "good" "good" "critical" "poor" "critical"
## [791] "good" "good" "critical" "good" "good"
## [796] "good" "good" "critical" "poor" "good"
## [801] "critical" "critical" "critical" "critical" "good"
## [806] "good" "good" "critical" "very good" "perfect"
## [811] "good" "good" "critical" "good" "good"
## [816] "poor" "good" "critical" "good" "good"
## [821] "good" "good" "good" "critical" "critical"
## [826] "critical" "critical" "perfect" "good" "poor"
## [831] "poor" "good" "perfect" "good" "good"
## [836] "perfect" "good" "good" "critical" "critical"
## [841] "good" "poor" "good" "very good" "good"
## [846] "good" "good" "good" "good" "good"
## [851] "critical" "critical" "critical" "very good" "poor"
## [856] "good" "good" "critical" "good" "good"
## [861] "critical" "poor" "good" "critical" "good"
## [866] "good" "good" "critical" "good" "good"
## [871] "poor" "critical" "critical" "good" "good"
## [876] "critical" "very good" "good" "good" "critical"
## [881] "good" "good" "critical" "critical" "good"
## [886] "good" "critical" "good" "critical" "very good"
## [891] "critical" "critical" "critical" "critical" "critical"
## [896] "poor" "good" "critical" "good" "good"
## [901] "critical" "critical" "critical" "good" "good"
## [906] "good" "good" "good" "poor" "good"
## [911] "poor" "critical" "good" "good" "very good"
## [916] "perfect" "good" "good" "good" "good"
## [921] "critical" "poor" "good" "good" "very good"
## [926] "very good" "critical" "good" "good" "poor"
## [931] "good" "good" "critical" "critical" "good"
## [936] "poor" "good" "good" "good" "critical"
## [941] "good" "good" "good" "critical" "good"
## [946] "perfect" "very good" "good" "good" "good"
## [951] "critical" "poor" "good" "good" "good"
## [956] "critical" "critical" "critical" "good" "good"
## [961] "critical" "poor" "good" "good" "good"
## [966] "good" "critical" "good" "good" "critical"
## [971] "good" "good" "very good" "good" "critical"
## [976] "good" "good" "poor" "poor" "very good"
## [981] "critical" "good" "good" "good" "critical"
## [986] "critical" "perfect" "good" "good" "critical"
## [991] "critical" "very good" "good" "good" "good"
## [996] "good" "good" "good" "good" "critical"
mean(credit$credit_history %in% "good")
## [1] 0.53
#9
credit$credit_history %in% "critical"
## [1] TRUE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE
## [12] FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE FALSE TRUE FALSE
## [23] TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [34] TRUE FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
## [45] TRUE TRUE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE
## [56] FALSE FALSE TRUE FALSE TRUE FALSE TRUE FALSE FALSE FALSE FALSE
## [67] FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE FALSE TRUE FALSE
## [78] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
## [89] FALSE FALSE TRUE TRUE TRUE TRUE FALSE FALSE TRUE FALSE TRUE
## [100] FALSE FALSE FALSE FALSE TRUE FALSE TRUE FALSE FALSE FALSE FALSE
## [111] FALSE FALSE FALSE TRUE FALSE TRUE FALSE TRUE TRUE TRUE FALSE
## [122] TRUE FALSE TRUE FALSE TRUE FALSE FALSE TRUE TRUE FALSE FALSE
## [133] FALSE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE FALSE FALSE
## [144] FALSE TRUE FALSE TRUE TRUE TRUE TRUE FALSE FALSE FALSE TRUE
## [155] FALSE FALSE TRUE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE
## [166] FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE
## [177] FALSE TRUE FALSE TRUE FALSE FALSE FALSE TRUE TRUE TRUE FALSE
## [188] TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
## [199] FALSE FALSE TRUE FALSE FALSE FALSE TRUE TRUE TRUE TRUE FALSE
## [210] FALSE TRUE FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE
## [221] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [232] FALSE FALSE FALSE TRUE FALSE FALSE FALSE TRUE FALSE FALSE FALSE
## [243] FALSE TRUE FALSE FALSE TRUE FALSE FALSE FALSE TRUE FALSE FALSE
## [254] FALSE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE TRUE
## [265] TRUE FALSE TRUE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE
## [276] FALSE TRUE FALSE FALSE FALSE TRUE FALSE FALSE TRUE TRUE FALSE
## [287] FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE
## [298] FALSE FALSE TRUE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE
## [309] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
## [320] FALSE TRUE FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE
## [331] TRUE TRUE FALSE TRUE FALSE TRUE FALSE FALSE FALSE FALSE TRUE
## [342] FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE TRUE FALSE FALSE
## [353] TRUE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE
## [364] FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE TRUE TRUE TRUE
## [375] FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE
## [386] TRUE FALSE TRUE TRUE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
## [397] FALSE TRUE FALSE TRUE FALSE TRUE FALSE FALSE FALSE FALSE TRUE
## [408] FALSE FALSE TRUE FALSE TRUE TRUE FALSE FALSE TRUE FALSE FALSE
## [419] FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE TRUE TRUE FALSE
## [430] TRUE FALSE FALSE TRUE TRUE FALSE FALSE FALSE TRUE TRUE FALSE
## [441] FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE TRUE
## [452] FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE
## [463] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [474] FALSE TRUE FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE
## [485] TRUE FALSE FALSE FALSE FALSE FALSE TRUE FALSE TRUE FALSE TRUE
## [496] FALSE FALSE TRUE FALSE TRUE FALSE FALSE FALSE TRUE FALSE FALSE
## [507] TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE
## [518] TRUE FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE TRUE TRUE
## [529] FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE TRUE FALSE
## [540] FALSE FALSE FALSE FALSE FALSE TRUE FALSE TRUE FALSE FALSE TRUE
## [551] TRUE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE TRUE FALSE
## [562] FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE TRUE
## [573] FALSE FALSE FALSE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE
## [584] FALSE FALSE FALSE TRUE FALSE FALSE TRUE TRUE FALSE FALSE FALSE
## [595] FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE
## [606] FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [617] FALSE TRUE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE
## [628] FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [639] FALSE FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE
## [650] FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE TRUE
## [661] FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE TRUE TRUE TRUE
## [672] FALSE FALSE TRUE FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE
## [683] FALSE TRUE FALSE FALSE TRUE FALSE FALSE FALSE TRUE FALSE FALSE
## [694] TRUE FALSE FALSE FALSE TRUE TRUE FALSE FALSE TRUE FALSE FALSE
## [705] FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE TRUE FALSE
## [716] TRUE TRUE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
## [727] TRUE FALSE FALSE TRUE FALSE FALSE FALSE FALSE TRUE FALSE FALSE
## [738] FALSE TRUE FALSE FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE
## [749] FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE TRUE TRUE FALSE
## [760] TRUE TRUE TRUE FALSE TRUE TRUE FALSE FALSE FALSE TRUE TRUE
## [771] FALSE TRUE TRUE TRUE TRUE FALSE TRUE FALSE TRUE FALSE TRUE
## [782] TRUE FALSE FALSE FALSE FALSE FALSE TRUE FALSE TRUE FALSE FALSE
## [793] TRUE FALSE FALSE FALSE FALSE TRUE FALSE FALSE TRUE TRUE TRUE
## [804] TRUE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE TRUE FALSE
## [815] FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE TRUE TRUE
## [826] TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [837] FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [848] FALSE FALSE FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE TRUE
## [859] FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE FALSE TRUE FALSE
## [870] FALSE FALSE TRUE TRUE FALSE FALSE TRUE FALSE FALSE FALSE TRUE
## [881] FALSE FALSE TRUE TRUE FALSE FALSE TRUE FALSE TRUE FALSE TRUE
## [892] TRUE TRUE TRUE TRUE FALSE FALSE TRUE FALSE FALSE TRUE TRUE
## [903] TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE
## [914] FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE
## [925] FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
## [936] FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE TRUE FALSE FALSE
## [947] FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE TRUE TRUE
## [958] TRUE FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE TRUE FALSE
## [969] FALSE TRUE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE
## [980] FALSE TRUE FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE TRUE
## [991] TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
median (credit$amount.eur [credit$credit_history == "critical" ])
## [1] 1090.5
median (credit$amount.eur [credit$credit_history == "good" ])
## [1] 1108.75
#10
head(credit)
## checking_balance months_loan_duration credit_history
## 1 < 0 DM 6 critical
## 2 1 - 200 DM 48 good
## 3 unknown 12 critical
## 4 < 0 DM 42 good
## 5 < 0 DM 24 poor
## 6 unknown 36 good
## purpose amount savings_balance employment_duration
## 1 furniture/appliances 1169 unknown > 7 years
## 2 furniture/appliances 5951 < 100 DM 1 - 4 years
## 3 education 2096 < 100 DM 4 - 7 years
## 4 furniture/appliances 7882 < 100 DM 4 - 7 years
## 5 car 4870 < 100 DM 1 - 4 years
## 6 education 9055 unknown 1 - 4 years
## percent_of_income years_at_residence age other_credit housing
## 1 4 4 67 none own
## 2 2 2 22 none own
## 3 2 3 49 none own
## 4 2 4 45 none other
## 5 3 4 53 none other
## 6 2 4 35 none other
## existing_loans_count job dependents phone default amount.eur
## 1 2 skilled 1 yes no 584.5
## 2 1 skilled 1 no yes 2975.5
## 3 1 unskilled 2 no no 1048.0
## 4 1 skilled 2 no no 3941.0
## 5 2 skilled 2 no yes 2435.0
## 6 1 unskilled 2 yes no 4527.5
cor(credit$age,credit$amount.eur)
## [1] 0.03271642
median (credit$age)
## [1] 33
mean (credit$amount.eur[credit$age > median(credit$age)])
## [1] 1677.155
mean (credit$amount.eur[credit$age < median(credit$age)])
## [1] 1614.921
#11
head(credit)
## checking_balance months_loan_duration credit_history
## 1 < 0 DM 6 critical
## 2 1 - 200 DM 48 good
## 3 unknown 12 critical
## 4 < 0 DM 42 good
## 5 < 0 DM 24 poor
## 6 unknown 36 good
## purpose amount savings_balance employment_duration
## 1 furniture/appliances 1169 unknown > 7 years
## 2 furniture/appliances 5951 < 100 DM 1 - 4 years
## 3 education 2096 < 100 DM 4 - 7 years
## 4 furniture/appliances 7882 < 100 DM 4 - 7 years
## 5 car 4870 < 100 DM 1 - 4 years
## 6 education 9055 unknown 1 - 4 years
## percent_of_income years_at_residence age other_credit housing
## 1 4 4 67 none own
## 2 2 2 22 none own
## 3 2 3 49 none own
## 4 2 4 45 none other
## 5 3 4 53 none other
## 6 2 4 35 none other
## existing_loans_count job dependents phone default amount.eur
## 1 2 skilled 1 yes no 584.5
## 2 1 skilled 1 no yes 2975.5
## 3 1 unskilled 2 no no 1048.0
## 4 1 skilled 2 no no 3941.0
## 5 2 skilled 2 no yes 2435.0
## 6 1 unskilled 2 yes no 4527.5
credit$default [credit$savings_balance < 100]
## [1] "yes" "no" "no" "yes" "no" "no" "yes" "yes" "yes" "no" "yes"
## [12] "no" "yes" "no" "no" "no" "no" "no" "no" "yes" "no" "no"
## [23] "no" "yes" "no" "yes" "no" "no" "no" "yes" "no" "no" "no"
## [34] "no" "yes" "no" "no" "yes" "no" "yes" "yes" "no" "no" "no"
## [45] "yes" "no" "no" "no" "no" "yes" "no" "no" "no" "no" "no"
## [56] "no" "yes" "no" "no" "no" "yes" "no" "no" "no" "no" "yes"
## [67] "yes" "no" "no" "no" "yes" "yes" "no" "no" "no" "no" "no"
## [78] "yes" "no" "yes" "yes" "no" "no" "no" "no" "no" "no" "no"
## [89] "yes" "no" "no" "no" "no" "no" "no" "no" "yes" "no" "no"
## [100] "no" "yes" "no" "no" "yes" "yes" "no" "yes" "no" "yes" "no"
## [111] "no" "no" "yes" "yes" "no" "yes" "no" "yes" "no" "no" "yes"
## [122] "yes" "no" "yes" "no" "yes" "no" "no" "yes" "no" "no" "no"
## [133] "no" "no" "no" "yes" "yes" "no" "no" "no" "no" "no" "no"
## [144] "no" "no" "yes" "yes" "yes" "no" "yes" "no" "no" "yes" "no"
## [155] "no" "no" "yes" "no" "no" "no" "no" "yes" "no" "no" "yes"
## [166] "no" "yes" "no" "no" "no" "no" "no" "yes" "no" "yes" "yes"
## [177] "yes" "no" "no" "yes" "no" "no" "no" "no" "no" "yes" "no"
## [188] "yes" "no" "no" "yes" "no" "no" "no" "yes" "no" "no" "yes"
## [199] "no" "no" "yes" "yes" "no" "no" "no" "yes" "yes" "no" "no"
## [210] "no" "no" "no" "no" "no" "no" "yes" "yes" "no" "no" "no"
## [221] "no" "no" "no" "no" "no" "no" "yes" "no" "yes" "yes" "yes"
## [232] "yes" "no" "yes" "no" "no" "yes" "no" "no" "no" "yes" "no"
## [243] "no" "no" "yes" "no" "yes" "yes" "no" "no" "no" "no" "no"
## [254] "no" "no" "no" "no" "no" "no" "yes" "no" "no" "yes" "no"
## [265] "yes" "no" "no" "no" "yes" "no" "yes" "no" "no" "no" "no"
## [276] "no" "no" "yes" "no" "yes" "no" "no" "no" "no" "no" "yes"
## [287] "no" "no" "no" "yes" "yes" "yes" "no" "yes" "no" "no" "no"
## [298] "yes" "no" "no" "yes" "no" "no" "no" "no" "no" "no" "no"
## [309] "yes" "no" "no" "yes" "yes" "yes" "yes" "no" "no" "no" "no"
## [320] "no" "no" "yes" "no" "no" "no" "no" "yes" "no" "no" "no"
## [331] "yes" "no" "yes" "no" "yes" "no" "no" "no" "no" "no" "yes"
## [342] "no" "yes" "yes" "no" "no" "no" "yes" "no" "no" "no" "yes"
## [353] "no" "yes" "no" "yes" "no" "yes" "no" "yes" "no" "no" "yes"
## [364] "yes" "no" "yes" "yes" "yes" "yes" "no" "yes" "no" "yes" "yes"
## [375] "no" "no" "no" "no" "no" "yes" "no" "yes" "no" "no" "yes"
## [386] "yes" "no" "no" "yes" "yes" "no" "no" "yes" "yes" "yes" "yes"
## [397] "no" "no" "yes" "yes" "yes" "no" "no" "no" "no" "no" "yes"
## [408] "no" "no" "no" "yes" "no" "yes" "no" "no" "yes" "yes" "yes"
## [419] "no" "no" "no" "yes" "yes" "no" "no" "no" "no" "yes" "yes"
## [430] "no" "yes" "yes" "no" "no" "yes" "no" "no" "no" "no" "no"
## [441] "no" "no" "no" "no" "yes" "no" "no" "no" "no" "no" "no"
## [452] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no" "yes"
## [463] "no" "yes" "no" "no" "yes" "no" "yes" "no" "yes" "yes" "yes"
## [474] "yes" "no" "yes" "yes" "no" "no" "yes" "no" "no" "no" "yes"
## [485] "no" "no" "no" "no" "yes" "no" "no" "yes" "no" "yes" "no"
## [496] "no" "yes" "yes" "no" "no" "yes" "no" "no" "yes" "no" "no"
## [507] "no" "no" "no" "yes" "no" "no" "no" "yes" "yes" "yes" "no"
## [518] "no" "no" "no" "no" "yes" "no" "no" "yes" "no" "no" "yes"
## [529] "yes" "yes" "no" "no" "no" "yes" "no" "no" "yes" "no" "no"
## [540] "no" "yes" "yes" "yes" "yes" "yes" "yes" "no" "no" "no" "yes"
## [551] "no" "yes" "no" "no" "no" "no" "yes" "yes" "no" "yes" "no"
## [562] "no" "yes" "no" "yes" "yes" "no" "yes" "no" "no" "no" "no"
## [573] "no" "no" "no" "no" "yes" "no" "no" "yes" "yes" "yes" "no"
## [584] "no" "no" "no" "no" "no" "no" "yes" "yes" "no" "no" "no"
## [595] "no" "yes" "no" "yes" "yes" "yes" "yes" "no" "yes" "no" "yes"
## [606] "yes" "no" "yes" "no" "no" "yes" "no" "no" "yes" "no" "yes"
## [617] "no" "no" "no" "yes" "no" "yes" "yes" "no" "no" "no" "yes"
## [628] "no" "no" "no" "no" "no" "no" "yes" "yes" "no" "no" "yes"
## [639] "yes" "yes" "yes" "no" "no" "no" "no" "no" "no" "no" "no"
## [650] "no" "yes"
table (credit$default [credit$savings_balance < 100])
##
## no yes
## 428 223
credit$default [credit$savings_balance > 500]
## [1] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no" "no"
## [12] "no" "no" "no" "no" "no" "yes" "no" "no" "no" "no" "yes"
## [23] "no" "yes" "no" "yes" "no" "no" "no" "no" "no" "no" "no"
## [34] "no" "yes" "no" "yes" "no" "yes" "no" "no" "yes" "no" "no"
## [45] "no" "no" "no" "yes" "no" "yes" "no" "no" "no" "no" "no"
## [56] "no" "no" "no" "no" "yes" "yes" "no" "no" "no" "no" "no"
## [67] "no" "no" "no" "no" "no" "no" "no" "no" "no" "yes" "yes"
## [78] "no" "no" "no" "no" "no" "yes" "no" "no" "no" "no" "no"
## [89] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no" "no"
## [100] "no" "no" "yes" "no" "yes" "no" "no" "yes" "no" "yes" "yes"
## [111] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no" "yes"
## [122] "yes" "no" "no" "no" "no" "no" "yes" "no" "no" "no" "yes"
## [133] "no" "yes" "no" "no" "no" "no" "no" "no" "yes" "no" "no"
## [144] "no" "no" "yes" "no" "no" "no" "no" "no" "yes" "yes" "no"
## [155] "yes" "no" "yes" "no" "no" "no" "no" "no" "yes" "no" "no"
## [166] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no" "no"
## [177] "yes" "yes" "no" "yes" "no" "no" "no" "yes" "no" "no" "no"
## [188] "no" "no" "no" "yes" "no" "no" "no" "no" "no" "no" "yes"
## [199] "no" "no" "no" "no" "no" "yes" "no" "no" "no" "no" "no"
## [210] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no" "no"
## [221] "no" "no" "no" "no" "no" "no" "no" "no" "no" "no" "no"
## [232] "no" "yes" "no" "yes" "no" "no" "yes" "no" "yes" "no" "no"
## [243] "no" "no" "no" "no"
table (credit$default [credit$savings_balance > 500])
##
## no yes
## 203 43
#12
mean(credit$amount.eur[credit$credit_history == "poor"])
## [1] 2151.301
mean(credit$amount.eur[credit$credit_history == "good"])
## [1] 1520.479
#13
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.