MergingHomework

Importing Data

remove (list=ls())

Customer <- read.csv("~/Desktop/BCE Coding/telecom_customer_churn.csv")

ZipCode <- read.csv("~/Desktop/BCE Coding/telecom_zipcode_population.csv")

?unique
unique(Customer$Zip.code)

   [1] 93225 91206 92627 94553 93010 95345 93437 94558 93063 95681 92091 94086
  [13] 95843 91942 93441 93286 94956 92078 94015 95037 93601 96140 93201 93530
  [25] 95550 92060 93648 95358 95442 95503 94038 90058 90063 92231 96003 95046
  [37] 95209 90003 90255 92398 92129 94539 95405 95126 91042 93291 95240 95318
  [49] 94515 95230 96134 96107 93023 92241 91605 94937 95404 95131 90744 95357
  [61] 92113 90275 95452 95255 90062 92256 92266 93563 93428 96084 95548 93650
  [73] 94508 95333 95560 92122 91755 95305 91381 95660 91746 95443 91803 90403
  [85] 90001 94533 95204 92592 92028 93554 93422 95365 93021 93463 90638 93516
  [97] 92239 95313 95379 92120 95603 93725 93616 94065 92285 90250 93445 93202
 [109] 95612 92620 95066 95368 95519 94027 92649 92320 94014 95461 94705 93249
 [121] 92844 92203 93033 92027 92553 91710 95820 92117 95380 95321 95033 93611
 [133] 96046 91364 95334 93274 93427 93552 92655 95630 94619 94960 91010 92530
 [145] 92672 90004 90241 94923 95925 92338 95051 92571 95540 91773 95672 96106
 [157] 95651 93436 95664 94133 91345 90040 90710 94108 90301 90015 94060 95004
 [169] 93603 92328 91744 93656 94104 95916 95439 95010 92109 91711 91207 90248
 [181] 94134 92126 92703 95369 93522 92404 95542 90807 91784 95762 95403 90265
 [193] 95401 93035 93591 91723 93954 95546 90802 95564 95527 96121 96007 92123
 [205] 93453 92869 90033 95111 95640 94404 90034 94130 95062 92596 92021 91403
 [217] 92860 95686 93532 90723 92675 95228 91724 95932 90630 95814 93534 92867
 [229] 93926 90045 92173 94949 95020 91377 94080 95385 95117 94089 92660 94305
 [241] 90041 90210 92503 90720 93710 92025 90247 92024 95829 93665 95555 95118
 [253] 91732 93962 90212 90631 93277 94114 90602 90822 95215 92332 95030 95949
 [265] 95112 93722 91316 90706 95370 92346 90071 90805 96113 94954 93501 96014
 [277] 94922 95316 92397 93940 94301 95327 95008 95511 92843 96069 95653 91406
 [289] 92026 96104 90717 95451 95662 95364 95903 95835 95947 95437 92254 90504
 [301] 92394 92064 95041 93109 95983 91962 94021 95914 95637 92508 95742 93666
 [313] 92310 91941 95923 95116 90290 95607 90680 95818 95219 95018 96052 91352
 [325] 92539 90201 95942 91935 91702 96065 95242 95585 95975 94952 95325 95620
 [337] 96029 92274 94549 94588 96096 94502 95638 95446 91932 94510 93606 90049
 [349] 94112 96020 95324 95133 92273 95946 95148 93304 96027 95988 95655 94930
 [361] 95547 95444 93263 90601 93452 94552 95961 92066 93621 95427 92084 95073
 [373] 96019 91343 95670 93280 92840 91103 92618 91602 90270 91321 95247 92673
 [385] 95536 95521 95307 95758 95693 96024 92282 95977 93614 95348 92536 95002
 [397] 92264 91739 93955 95556 95959 95462 91709 93610 92371 95432 90065 93308
 [409] 92870 95417 93727 95694 91765 92368 90620 94805 96097 90066 95203 95626
 [421] 90023 91361 93105 95714 92103 95346 95035 90069 95207 93637 94019 95616
 [433] 95717 95429 95337 93706 90064 93433 94062 90240 91722 94040 92833 96006
 [445] 95920 93309 90305 93631 91356 90621 92590 95614 92061 93529 92324 93924
 [457] 92227 92315 95202 92059 92805 94618 94102 95360 91607 92780 90026 91101
 [469] 92105 92835 93514 96038 92610 92211 95776 94928 92625 93239 91001 90059
 [481] 93260 90068 95454 90047 92866 93615 94501 94107 92128 92691 90743 92661
 [493] 90036 92342 92258 95682 95070 94518 94973 91606 91792 94519 94132 95570
 [505] 95830 96016 93256 95310 95250 95951 93401 95665 94550 92356 95545 92104
 [517] 93210 95312 96013 95675 90048 90039 96031 90292 95650 96001 94565 95423
 [529] 92585 90713 95969 95701 95129 96055 94601 96124 96010 93620 95245 95973
 [541] 92701 92345 95688 91436 93551 91367 93928 94043 95422 94947 91301 94621
 [553] 95668 92276 93205 91016 91384 95629 93675 93460 95941 95257 92883 96048
 [565] 92029 90029 92121 93041 92841 95227 90260 92071 95220 91733 92101 95659
 [577] 95669 91504 96125 93703 92267 95595 93711 91931 95426 94544 95123 91208
 [589] 94074 95713 90028 90604 95831 90024 94541 95460 94127 90021 91770 91730
 [601] 95623 92305 96122 96137 92116 94520 93664 93517 93541 92333 95415 90623
 [613] 95954 96033 92881 95258 90732 92268 91977 92692 94709 95383 94702 93261
 [625] 96050 94561 95950 91306 92582 91326 90056 92259 90032 94580 90742 95639
 [637] 94514 92551 92236 95251 93223 92107 95926 95006 95962 92707 91201 96028
 [649] 91030 93704 92384 90402 95007 92240 90010 92234 90501 95968 95050 95601
 [661] 93247 96039 93932 92624 93605 93626 96051 94572 94061 95636 92570 94005
 [673] 93660 92111 90077 92251 93451 93424 92544 90274 96136 94536 90007 95568
 [685] 96002 94904 90017 95492 92127 91761 90740 96114 91945 91601 95450 94037
 [697] 90067 92130 95329 92106 94507 93638 95979 95559 94933 91737 95494 95689
 [709] 91020 95691 92694 95562 92374 93066 91950 93250 95054 96071 92372 92347
 [721] 93224 93651 94608 93553 90746 93262 90044 91331 96143 96015 92630 92507
 [733] 92880 91351 92656 92115 96022 95552 94546 93622 90280 95986 90211 95569
 [745] 96128 95351 94583 90401 92401 90810 90242 92154 92504 92831 96067 93283
 [757] 92688 91801 95361 90232 95624 92604 96146 93523 94576 93634 95832 92808
 [769] 96087 95816 95119 95212 94598 93623 96035 90035 90230 92118 96130 92014
 [781] 94612 93608 94511 95122 92249 95130 92392 92110 92257 94803 90262 92359
 [793] 95019 93450 92124 91007 93235 95464 95621 90038 92501 90037 94611 93305
 [805] 91604 93270 93646 95692 95386 91791 92321 96094 91916 93705 95014 91980
 [817] 93111 91913 95354 96073 94401 91706 95722 93960 93301 95323 93561 95821
 [829] 93101 90804 91104 95602 95436 95974 95634 95367 95224 95823 95917 94946
 [841] 90505 93208 96148 94513 93510 96059 95205 95254 92591 95421 95528 95735
 [853] 91752 92139 92253 93907 93432 95382 92506 90043 94931 93728 90701 90046
 [865] 93103 92220 93657 95032 95663 95943 91762 92662 95501 93644 95488 91105
 [877] 95012 93001 91202 93307 94804 92629 95948 95139 95110 93212 96023 95687
 [889] 95113 92868 93461 92354 95684 92410 92408 95485 91106 94545 91766 93426
 [901] 94087 95064 93430 90272 95833 92373 94972 95817 90703 95587 93528 93535
 [913] 92583 95330 95468 93953 95543 93531 94920 95965 91963 93923 95667 95459
 [925] 95567 95666 91754 91905 90245 90712 92036 95720 91786 93641 95497 92243
 [937] 93465 91506 95223 95635 90018 92069 94025 95210 92879 95315 96047 95355
 [949] 95338 95571 91775 93221 91501 95425 90291 95003 91325 95226 92584 95374
 [961] 90263 92683 94592 96116 96011 92281 91790 90012 90606 95619 90057 91107
 [973] 90815 95410 92657 92070 93117 91502 94806 91789 95641 90221 95991 94569
 [985] 95901 95448 95981 95463 92065 90025 92230 94571 94526 95834 94116 94030
 [997] 91767 92363 90745 95709 91311 94402 90650 96093 95618 92801 94579 94596
[1009] 96105 93628 94577 94903 90014 94568 93609 93612 95945 92626 95138 95573
[1021] 95471 92823 95356 92708 95409 93040 95428 94566 96103 96141 91411 92275
[1033] 92304 96017 93905 95953 96145 91906 94512 94115 94070 91344 93004 95661
[1045] 90304 92242 92587 95922 95930 91780 95363 91910 94118 96040 92056 93726
[1057] 92309 93271 93257 94609 93543 92602 95445 92845 93721 96110 93206 95912
[1069] 96054 92382 95982 91902 91342 90806 95695 95736 92399 92314 92821 94901
[1081] 93618 95458 92705 92804 92057 93906 90278 94109 90670 95472 93505 91350
[1093] 93546 90303 95939 95306 95206 95553 93643 91304 92562 95747 93287 92405
[1105] 94563 95045 93512 91360 93003 92509 90502 95514 95005 93458 92225 92706
[1117] 92518 92108 93244 94303 94585 92119 91204 93306 93241 95524 90716 90220
[1129] 95957 94567 95456 94703 91948 91915 93313 96132 93238 94801 93647 95605
[1141] 93925 92316 93630 92663 93065 95937 93673 96056 93513 94945 92612 93549
[1153] 94403 94547 90005 93653 94971 96057 95683 92020 94589 94590 93950 92543
[1165] 92037 95910 93702 90813 92067 93446 96037 92054 95124 92865 95728 95388
[1177] 95140 90013 94555 91776 93635 92003 92505 93243 91759 95822 92646 94542
[1189] 92270 95065 94530 91108 95646 95420 95449 90503 96076 95407 95674 93251
[1201] 94578 92807 95685 91405 90222 93442 94970 95563 93434 92283 92083 92545
[1213] 95978 90405 92335 91335 95936 91750 95963 91911 96085 93526 94559 92009
[1225] 95303 95815 95828 92308 94591 94041 94117 94022 95746 96109 92311 95554
[1237] 91917 95645 96126 91764 94110 95918 95222 92563 93060 91354 93667 95633
[1249] 93624 95631 95233 95476 93240 95549 94010 90605 92886 95135 95827 95987
[1261] 93669 92284 91901 95043 95726 93654 95955 94506 93254 94525 92337 95470
[1273] 93267 95765 92887 92679 94002 93550 94066 95837 95136 95610 96061 95311
[1285] 92040 93652 92004 93268 90302 95558 94129 94586 95526 94710 93312 95249
[1297] 95935 90293 94521 94123 95525 90027 95453 93234 95236 95565 94560 91731
[1309] 93226 92131 95642 93625 93402 94535 94924 92201 94964 95648 96123 95970
[1321] 93930 94063 95715 95482 94111 96101 93921 94965 91024 95132 92407 92549
[1333] 94940 91701 90031 95826 95824 92567 95128 92301 94941 95490 95690 90008
[1345] 90715 93218 91740 96068 96009 94925 96120 91324 91214 95466 94574 95919
[1357] 92411 92364 94707 95493 92782 92278 91748 94020 92548 96091 95326 92806
[1369] 96086 94587 93662 93405 93933 96142 95658 96021 92614 95441 95366 96090
[1381] 94704 91302 95993 94610 91741 92648 93444 90011 96075 95721 94929 90803
[1393] 96008 91303 95121 93207 95606 94938 92358 93204 95232 90814 93720 94595
[1405] 95335 93604 91006 94607 95615 90254 96062 95301 94024 93230 90019 92086
[1417] 95320 95841 93455 95350 96088 91362 90061 94708 91307 92008 91040 91011
[1429] 95060 95376 93311 95673 92555 92102 92339 94605 94122 90731 95125 90266
[1441] 92376 92327 96108 90404 92252 93022 90006 92260 92223 90603 95625 95938
[1453] 94706 95231 93901 94939 92606 93701 94950 93429 95537 95632 96117 96118
[1465] 93276 92557 93108 93544 91401 95971 96025 94131 93927 93449 94606 93420
[1477] 96058 90660 92595 93265 92325 92019 92386 94523 90704 94951 90002 91763
[1489] 92532 95825 93203 95960 95431 95372 93067 91340 95628 92704 93222 90042
[1501] 95412 95120 93015 94028 92651 95252 94105 95322 94564 92352 95457 90022
[1513] 94304 96034 95469 95134 90277 92653 93645 94517 91768 93215 95237 91423
[1525] 92676 92233 95039 95246 94121 93536 93030 95465 94306 96044 93560 93266
[1537] 96133 92647 92250 95328 90016 95627 94963 92007 94556 92561 91745 91505
[1549] 92313 95984 91978 94602 92114 94124 93518 92677 94538 91205 95864 92262
[1561] 92802 95703 93242 95430 94103 95838 93627 93110 91320 95966 95127 95317
[1573] 95842 91914 93245 96119 93440 90249 90640 93454 93602 95017 95677 92082
[1585] 93012 95944 92336 96080 95336 92377 95608 95551 95934 92075 94509 96112
[1597] 94599 95678 91355 93285 92861 95340 91203 94603 94044 95928 92882 90808
[1609] 92210 93219 92832 96063 93668 95819 92586 96092 96074 92341 93292 95076
[1621] 95225 93908 96150 91934 93013 95956

length(unique(Customer$Zip.code)) # Confirmed sales ID is unique

[1] 1626

unique(ZipCode$Zip.Code)

   [1] 90001 90002 90003 90004 90005 90006 90007 90008 90010 90011 90012 90013
  [13] 90014 90015 90016 90017 90018 90019 90020 90021 90022 90023 90024 90025
  [25] 90026 90027 90028 90029 90031 90032 90033 90034 90035 90036 90037 90038
  [37] 90039 90040 90041 90042 90043 90044 90045 90046 90047 90048 90049 90056
  [49] 90057 90058 90059 90061 90062 90063 90064 90065 90066 90067 90068 90069
  [61] 90071 90077 90201 90210 90211 90212 90220 90221 90222 90230 90232 90240
  [73] 90241 90242 90245 90247 90248 90249 90250 90254 90255 90260 90262 90263
  [85] 90265 90266 90270 90272 90274 90275 90277 90278 90280 90290 90291 90292
  [97] 90293 90301 90302 90303 90304 90305 90401 90402 90403 90404 90405 90501
 [109] 90502 90503 90504 90505 90601 90602 90603 90604 90605 90606 90620 90621
 [121] 90623 90630 90631 90638 90640 90650 90660 90670 90680 90701 90703 90704
 [133] 90706 90710 90712 90713 90715 90716 90717 90720 90723 90731 90732 90740
 [145] 90742 90743 90744 90745 90746 90802 90803 90804 90805 90806 90807 90808
 [157] 90810 90813 90814 90815 90822 91001 91006 91007 91010 91011 91016 91020
 [169] 91024 91030 91040 91042 91101 91103 91104 91105 91106 91107 91108 91201
 [181] 91202 91203 91204 91205 91206 91207 91208 91214 91301 91302 91303 91304
 [193] 91306 91307 91311 91316 91320 91321 91324 91325 91326 91331 91335 91340
 [205] 91342 91343 91344 91345 91350 91351 91352 91354 91355 91356 91360 91361
 [217] 91362 91364 91367 91377 91381 91384 91401 91402 91403 91405 91406 91411
 [229] 91423 91436 91501 91502 91504 91505 91506 91601 91602 91604 91605 91606
 [241] 91607 91701 91702 91706 91709 91710 91711 91722 91723 91724 91730 91731
 [253] 91732 91733 91737 91739 91740 91741 91743 91744 91745 91746 91748 91750
 [265] 91752 91754 91755 91759 91761 91762 91763 91764 91765 91766 91767 91768
 [277] 91770 91773 91775 91776 91780 91784 91786 91789 91790 91791 91792 91801
 [289] 91803 91901 91902 91905 91906 91910 91911 91913 91914 91915 91916 91917
 [301] 91931 91932 91934 91935 91941 91942 91945 91948 91950 91962 91963 91977
 [313] 91978 91980 92003 92004 92007 92008 92009 92014 92019 92020 92021 92024
 [325] 92025 92026 92027 92028 92029 92036 92037 92040 92054 92056 92057 92059
 [337] 92060 92061 92064 92065 92066 92067 92069 92070 92071 92075 92078 92082
 [349] 92083 92084 92086 92091 92101 92102 92103 92104 92105 92106 92107 92108
 [361] 92109 92110 92111 92113 92114 92115 92116 92117 92118 92119 92120 92121
 [373] 92122 92123 92124 92126 92127 92128 92129 92130 92131 92139 92154 92173
 [385] 92201 92203 92210 92211 92220 92223 92225 92227 92230 92231 92233 92234
 [397] 92236 92239 92240 92241 92242 92243 92249 92250 92251 92252 92253 92254
 [409] 92256 92257 92258 92259 92260 92262 92264 92266 92267 92268 92270 92273
 [421] 92274 92275 92276 92277 92278 92280 92281 92282 92283 92284 92285 92301
 [433] 92304 92305 92307 92308 92309 92310 92311 92313 92314 92315 92316 92317
 [445] 92318 92320 92321 92323 92324 92325 92327 92328 92332 92333 92335 92336
 [457] 92337 92338 92339 92341 92342 92345 92346 92347 92352 92354 92356 92358
 [469] 92359 92363 92364 92365 92368 92371 92372 92373 92374 92376 92377 92382
 [481] 92384 92386 92389 92392 92394 92397 92398 92399 92401 92404 92405 92407
 [493] 92408 92410 92411 92501 92503 92504 92505 92506 92507 92508 92509 92518
 [505] 92530 92532 92536 92539 92543 92544 92545 92548 92549 92551 92553 92555
 [517] 92557 92561 92562 92563 92567 92570 92571 92582 92583 92584 92585 92586
 [529] 92587 92590 92591 92592 92595 92596 92602 92604 92606 92610 92612 92614
 [541] 92618 92620 92624 92625 92626 92627 92629 92630 92646 92647 92648 92649
 [553] 92651 92653 92655 92656 92657 92660 92661 92662 92663 92672 92673 92675
 [565] 92676 92677 92679 92683 92688 92691 92692 92694 92701 92703 92704 92705
 [577] 92706 92707 92708 92780 92782 92801 92802 92804 92805 92806 92807 92808
 [589] 92821 92823 92831 92832 92833 92835 92840 92841 92843 92844 92845 92860
 [601] 92861 92865 92866 92867 92868 92869 92870 92879 92880 92881 92882 92883
 [613] 92886 92887 93001 93003 93004 93010 93012 93013 93015 93021 93022 93023
 [625] 93030 93033 93035 93040 93041 93060 93063 93065 93066 93067 93101 93103
 [637] 93105 93108 93109 93110 93111 93117 93201 93202 93203 93204 93205 93206
 [649] 93207 93208 93210 93212 93215 93216 93218 93219 93221 93222 93223 93224
 [661] 93225 93226 93230 93234 93235 93238 93239 93240 93241 93242 93243 93244
 [673] 93245 93247 93249 93250 93251 93252 93254 93255 93256 93257 93260 93261
 [685] 93262 93263 93265 93266 93267 93268 93270 93271 93272 93274 93276 93277
 [697] 93280 93282 93283 93285 93286 93287 93291 93292 93301 93304 93305 93306
 [709] 93307 93308 93309 93311 93312 93313 93401 93402 93405 93420 93422 93424
 [721] 93426 93427 93428 93429 93430 93432 93433 93434 93435 93436 93437 93440
 [733] 93441 93442 93444 93445 93446 93447 93449 93450 93451 93452 93453 93454
 [745] 93455 93458 93460 93461 93463 93465 93501 93505 93510 93512 93513 93514
 [757] 93516 93517 93518 93522 93523 93526 93527 93528 93529 93530 93531 93532
 [769] 93534 93535 93536 93541 93543 93544 93545 93546 93549 93550 93551 93552
 [781] 93553 93554 93555 93560 93561 93562 93563 93591 93601 93602 93603 93604
 [793] 93605 93606 93608 93609 93610 93611 93612 93614 93615 93616 93618 93620
 [805] 93621 93622 93623 93624 93625 93626 93627 93628 93630 93631 93634 93635
 [817] 93637 93638 93640 93641 93643 93644 93645 93646 93647 93648 93650 93651
 [829] 93652 93653 93654 93656 93657 93660 93662 93664 93665 93666 93667 93668
 [841] 93669 93673 93675 93701 93702 93703 93704 93705 93706 93710 93711 93720
 [853] 93721 93722 93725 93726 93727 93728 93901 93905 93906 93907 93908 93920
 [865] 93921 93923 93924 93925 93926 93927 93928 93930 93932 93933 93940 93950
 [877] 93953 93954 93955 93960 93962 94002 94005 94010 94014 94015 94019 94020
 [889] 94021 94022 94024 94025 94027 94028 94030 94037 94038 94040 94041 94043
 [901] 94044 94060 94061 94062 94063 94065 94066 94070 94074 94080 94086 94087
 [913] 94089 94102 94103 94104 94105 94107 94108 94109 94110 94111 94112 94114
 [925] 94115 94116 94117 94118 94121 94122 94123 94124 94127 94129 94130 94131
 [937] 94132 94133 94134 94301 94303 94304 94305 94306 94401 94402 94403 94404
 [949] 94501 94502 94506 94507 94508 94509 94510 94511 94512 94513 94514 94515
 [961] 94517 94518 94519 94520 94521 94523 94525 94526 94530 94533 94535 94536
 [973] 94538 94539 94541 94542 94544 94545 94546 94547 94549 94550 94552 94553
 [985] 94555 94556 94558 94559 94560 94561 94563 94564 94565 94566 94567 94568
 [997] 94569 94571 94572 94574 94576 94577 94578 94579 94580 94583 94585 94586
[1009] 94587 94588 94589 94590 94591 94592 94595 94596 94598 94599 94601 94602
[1021] 94603 94605 94606 94607 94608 94609 94610 94611 94612 94618 94619 94621
[1033] 94702 94703 94704 94705 94706 94707 94708 94709 94710 94801 94803 94804
[1045] 94805 94806 94901 94903 94904 94920 94922 94923 94924 94925 94928 94929
[1057] 94930 94931 94933 94937 94938 94939 94940 94941 94945 94946 94947 94949
[1069] 94950 94951 94952 94954 94956 94960 94963 94964 94965 94970 94971 94972
[1081] 94973 95002 95003 95004 95005 95006 95007 95008 95010 95012 95014 95017
[1093] 95018 95019 95020 95023 95030 95032 95033 95035 95037 95039 95041 95043
[1105] 95045 95046 95050 95051 95054 95060 95062 95064 95065 95066 95070 95073
[1117] 95076 95110 95111 95112 95113 95116 95117 95118 95119 95120 95121 95122
[1129] 95123 95124 95125 95126 95127 95128 95129 95130 95131 95132 95133 95134
[1141] 95135 95136 95138 95139 95140 95148 95202 95203 95204 95205 95206 95207
[1153] 95209 95210 95212 95215 95219 95220 95221 95222 95223 95224 95225 95226
[1165] 95227 95228 95230 95231 95232 95233 95236 95237 95240 95242 95245 95246
[1177] 95247 95249 95250 95251 95252 95254 95255 95257 95258 95301 95303 95305
[1189] 95306 95307 95310 95311 95312 95313 95315 95316 95317 95318 95320 95321
[1201] 95322 95323 95324 95325 95326 95327 95328 95329 95330 95333 95334 95335
[1213] 95336 95337 95338 95340 95345 95346 95348 95350 95351 95354 95355 95356
[1225] 95357 95358 95360 95361 95363 95364 95365 95366 95367 95368 95369 95370
[1237] 95372 95374 95376 95379 95380 95382 95383 95385 95386 95387 95388 95389
[1249] 95401 95403 95404 95405 95407 95409 95410 95412 95415 95417 95419 95420
[1261] 95421 95422 95423 95424 95425 95426 95427 95428 95429 95430 95431 95432
[1273] 95436 95437 95439 95441 95442 95443 95444 95445 95446 95448 95449 95450
[1285] 95451 95452 95453 95454 95456 95457 95458 95459 95460 95461 95462 95463
[1297] 95464 95465 95466 95468 95469 95470 95471 95472 95476 95480 95481 95482
[1309] 95485 95488 95490 95492 95493 95494 95497 95501 95502 95503 95511 95514
[1321] 95519 95521 95524 95525 95526 95527 95528 95531 95536 95537 95540 95542
[1333] 95543 95545 95546 95547 95548 95549 95550 95551 95552 95553 95554 95555
[1345] 95556 95558 95559 95560 95562 95563 95564 95565 95567 95568 95569 95570
[1357] 95571 95573 95585 95587 95589 95595 95601 95602 95603 95605 95606 95607
[1369] 95608 95610 95612 95613 95614 95615 95616 95618 95619 95620 95621 95623
[1381] 95624 95625 95626 95627 95628 95629 95630 95631 95632 95633 95634 95635
[1393] 95636 95637 95638 95639 95640 95641 95642 95645 95646 95648 95650 95651
[1405] 95653 95655 95658 95659 95660 95661 95662 95663 95664 95665 95666 95667
[1417] 95668 95669 95670 95672 95673 95674 95675 95676 95677 95678 95681 95682
[1429] 95683 95684 95685 95686 95687 95688 95689 95690 95691 95692 95693 95694
[1441] 95695 95701 95703 95709 95713 95714 95715 95717 95720 95721 95722 95726
[1453] 95728 95735 95736 95742 95746 95747 95758 95762 95765 95776 95814 95815
[1465] 95816 95817 95818 95819 95820 95821 95822 95823 95824 95825 95826 95827
[1477] 95828 95829 95830 95831 95832 95833 95834 95835 95836 95837 95838 95841
[1489] 95842 95843 95864 95901 95903 95910 95912 95913 95914 95916 95917 95918
[1501] 95919 95920 95922 95923 95925 95926 95928 95930 95932 95934 95935 95936
[1513] 95937 95938 95939 95941 95942 95943 95944 95945 95946 95947 95948 95949
[1525] 95950 95951 95953 95954 95955 95956 95957 95959 95960 95961 95962 95963
[1537] 95965 95966 95968 95969 95970 95971 95972 95973 95974 95975 95977 95978
[1549] 95979 95981 95982 95983 95984 95986 95987 95988 95991 95993 96001 96002
[1561] 96003 96006 96007 96008 96009 96010 96011 96013 96014 96015 96016 96017
[1573] 96019 96020 96021 96022 96023 96024 96025 96027 96028 96029 96031 96032
[1585] 96033 96034 96035 96037 96038 96039 96040 96041 96044 96046 96047 96048
[1597] 96050 96051 96052 96054 96055 96056 96057 96058 96059 96061 96062 96063
[1609] 96064 96065 96067 96068 96069 96071 96073 96074 96075 96076 96080 96084
[1621] 96085 96086 96087 96088 96090 96091 96092 96093 96094 96096 96097 96101
[1633] 96103 96104 96105 96106 96107 96108 96109 96110 96112 96113 96114 96115
[1645] 96116 96117 96118 96119 96120 96121 96122 96123 96124 96125 96126 96128
[1657] 96130 96132 96133 96134 96136 96137 96140 96141 96142 96143 96145 96146
[1669] 96148 96150 96161

sort(unique(ZipCode$Zip.Code))

   [1] 90001 90002 90003 90004 90005 90006 90007 90008 90010 90011 90012 90013
  [13] 90014 90015 90016 90017 90018 90019 90020 90021 90022 90023 90024 90025
  [25] 90026 90027 90028 90029 90031 90032 90033 90034 90035 90036 90037 90038
  [37] 90039 90040 90041 90042 90043 90044 90045 90046 90047 90048 90049 90056
  [49] 90057 90058 90059 90061 90062 90063 90064 90065 90066 90067 90068 90069
  [61] 90071 90077 90201 90210 90211 90212 90220 90221 90222 90230 90232 90240
  [73] 90241 90242 90245 90247 90248 90249 90250 90254 90255 90260 90262 90263
  [85] 90265 90266 90270 90272 90274 90275 90277 90278 90280 90290 90291 90292
  [97] 90293 90301 90302 90303 90304 90305 90401 90402 90403 90404 90405 90501
 [109] 90502 90503 90504 90505 90601 90602 90603 90604 90605 90606 90620 90621
 [121] 90623 90630 90631 90638 90640 90650 90660 90670 90680 90701 90703 90704
 [133] 90706 90710 90712 90713 90715 90716 90717 90720 90723 90731 90732 90740
 [145] 90742 90743 90744 90745 90746 90802 90803 90804 90805 90806 90807 90808
 [157] 90810 90813 90814 90815 90822 91001 91006 91007 91010 91011 91016 91020
 [169] 91024 91030 91040 91042 91101 91103 91104 91105 91106 91107 91108 91201
 [181] 91202 91203 91204 91205 91206 91207 91208 91214 91301 91302 91303 91304
 [193] 91306 91307 91311 91316 91320 91321 91324 91325 91326 91331 91335 91340
 [205] 91342 91343 91344 91345 91350 91351 91352 91354 91355 91356 91360 91361
 [217] 91362 91364 91367 91377 91381 91384 91401 91402 91403 91405 91406 91411
 [229] 91423 91436 91501 91502 91504 91505 91506 91601 91602 91604 91605 91606
 [241] 91607 91701 91702 91706 91709 91710 91711 91722 91723 91724 91730 91731
 [253] 91732 91733 91737 91739 91740 91741 91743 91744 91745 91746 91748 91750
 [265] 91752 91754 91755 91759 91761 91762 91763 91764 91765 91766 91767 91768
 [277] 91770 91773 91775 91776 91780 91784 91786 91789 91790 91791 91792 91801
 [289] 91803 91901 91902 91905 91906 91910 91911 91913 91914 91915 91916 91917
 [301] 91931 91932 91934 91935 91941 91942 91945 91948 91950 91962 91963 91977
 [313] 91978 91980 92003 92004 92007 92008 92009 92014 92019 92020 92021 92024
 [325] 92025 92026 92027 92028 92029 92036 92037 92040 92054 92056 92057 92059
 [337] 92060 92061 92064 92065 92066 92067 92069 92070 92071 92075 92078 92082
 [349] 92083 92084 92086 92091 92101 92102 92103 92104 92105 92106 92107 92108
 [361] 92109 92110 92111 92113 92114 92115 92116 92117 92118 92119 92120 92121
 [373] 92122 92123 92124 92126 92127 92128 92129 92130 92131 92139 92154 92173
 [385] 92201 92203 92210 92211 92220 92223 92225 92227 92230 92231 92233 92234
 [397] 92236 92239 92240 92241 92242 92243 92249 92250 92251 92252 92253 92254
 [409] 92256 92257 92258 92259 92260 92262 92264 92266 92267 92268 92270 92273
 [421] 92274 92275 92276 92277 92278 92280 92281 92282 92283 92284 92285 92301
 [433] 92304 92305 92307 92308 92309 92310 92311 92313 92314 92315 92316 92317
 [445] 92318 92320 92321 92323 92324 92325 92327 92328 92332 92333 92335 92336
 [457] 92337 92338 92339 92341 92342 92345 92346 92347 92352 92354 92356 92358
 [469] 92359 92363 92364 92365 92368 92371 92372 92373 92374 92376 92377 92382
 [481] 92384 92386 92389 92392 92394 92397 92398 92399 92401 92404 92405 92407
 [493] 92408 92410 92411 92501 92503 92504 92505 92506 92507 92508 92509 92518
 [505] 92530 92532 92536 92539 92543 92544 92545 92548 92549 92551 92553 92555
 [517] 92557 92561 92562 92563 92567 92570 92571 92582 92583 92584 92585 92586
 [529] 92587 92590 92591 92592 92595 92596 92602 92604 92606 92610 92612 92614
 [541] 92618 92620 92624 92625 92626 92627 92629 92630 92646 92647 92648 92649
 [553] 92651 92653 92655 92656 92657 92660 92661 92662 92663 92672 92673 92675
 [565] 92676 92677 92679 92683 92688 92691 92692 92694 92701 92703 92704 92705
 [577] 92706 92707 92708 92780 92782 92801 92802 92804 92805 92806 92807 92808
 [589] 92821 92823 92831 92832 92833 92835 92840 92841 92843 92844 92845 92860
 [601] 92861 92865 92866 92867 92868 92869 92870 92879 92880 92881 92882 92883
 [613] 92886 92887 93001 93003 93004 93010 93012 93013 93015 93021 93022 93023
 [625] 93030 93033 93035 93040 93041 93060 93063 93065 93066 93067 93101 93103
 [637] 93105 93108 93109 93110 93111 93117 93201 93202 93203 93204 93205 93206
 [649] 93207 93208 93210 93212 93215 93216 93218 93219 93221 93222 93223 93224
 [661] 93225 93226 93230 93234 93235 93238 93239 93240 93241 93242 93243 93244
 [673] 93245 93247 93249 93250 93251 93252 93254 93255 93256 93257 93260 93261
 [685] 93262 93263 93265 93266 93267 93268 93270 93271 93272 93274 93276 93277
 [697] 93280 93282 93283 93285 93286 93287 93291 93292 93301 93304 93305 93306
 [709] 93307 93308 93309 93311 93312 93313 93401 93402 93405 93420 93422 93424
 [721] 93426 93427 93428 93429 93430 93432 93433 93434 93435 93436 93437 93440
 [733] 93441 93442 93444 93445 93446 93447 93449 93450 93451 93452 93453 93454
 [745] 93455 93458 93460 93461 93463 93465 93501 93505 93510 93512 93513 93514
 [757] 93516 93517 93518 93522 93523 93526 93527 93528 93529 93530 93531 93532
 [769] 93534 93535 93536 93541 93543 93544 93545 93546 93549 93550 93551 93552
 [781] 93553 93554 93555 93560 93561 93562 93563 93591 93601 93602 93603 93604
 [793] 93605 93606 93608 93609 93610 93611 93612 93614 93615 93616 93618 93620
 [805] 93621 93622 93623 93624 93625 93626 93627 93628 93630 93631 93634 93635
 [817] 93637 93638 93640 93641 93643 93644 93645 93646 93647 93648 93650 93651
 [829] 93652 93653 93654 93656 93657 93660 93662 93664 93665 93666 93667 93668
 [841] 93669 93673 93675 93701 93702 93703 93704 93705 93706 93710 93711 93720
 [853] 93721 93722 93725 93726 93727 93728 93901 93905 93906 93907 93908 93920
 [865] 93921 93923 93924 93925 93926 93927 93928 93930 93932 93933 93940 93950
 [877] 93953 93954 93955 93960 93962 94002 94005 94010 94014 94015 94019 94020
 [889] 94021 94022 94024 94025 94027 94028 94030 94037 94038 94040 94041 94043
 [901] 94044 94060 94061 94062 94063 94065 94066 94070 94074 94080 94086 94087
 [913] 94089 94102 94103 94104 94105 94107 94108 94109 94110 94111 94112 94114
 [925] 94115 94116 94117 94118 94121 94122 94123 94124 94127 94129 94130 94131
 [937] 94132 94133 94134 94301 94303 94304 94305 94306 94401 94402 94403 94404
 [949] 94501 94502 94506 94507 94508 94509 94510 94511 94512 94513 94514 94515
 [961] 94517 94518 94519 94520 94521 94523 94525 94526 94530 94533 94535 94536
 [973] 94538 94539 94541 94542 94544 94545 94546 94547 94549 94550 94552 94553
 [985] 94555 94556 94558 94559 94560 94561 94563 94564 94565 94566 94567 94568
 [997] 94569 94571 94572 94574 94576 94577 94578 94579 94580 94583 94585 94586
[1009] 94587 94588 94589 94590 94591 94592 94595 94596 94598 94599 94601 94602
[1021] 94603 94605 94606 94607 94608 94609 94610 94611 94612 94618 94619 94621
[1033] 94702 94703 94704 94705 94706 94707 94708 94709 94710 94801 94803 94804
[1045] 94805 94806 94901 94903 94904 94920 94922 94923 94924 94925 94928 94929
[1057] 94930 94931 94933 94937 94938 94939 94940 94941 94945 94946 94947 94949
[1069] 94950 94951 94952 94954 94956 94960 94963 94964 94965 94970 94971 94972
[1081] 94973 95002 95003 95004 95005 95006 95007 95008 95010 95012 95014 95017
[1093] 95018 95019 95020 95023 95030 95032 95033 95035 95037 95039 95041 95043
[1105] 95045 95046 95050 95051 95054 95060 95062 95064 95065 95066 95070 95073
[1117] 95076 95110 95111 95112 95113 95116 95117 95118 95119 95120 95121 95122
[1129] 95123 95124 95125 95126 95127 95128 95129 95130 95131 95132 95133 95134
[1141] 95135 95136 95138 95139 95140 95148 95202 95203 95204 95205 95206 95207
[1153] 95209 95210 95212 95215 95219 95220 95221 95222 95223 95224 95225 95226
[1165] 95227 95228 95230 95231 95232 95233 95236 95237 95240 95242 95245 95246
[1177] 95247 95249 95250 95251 95252 95254 95255 95257 95258 95301 95303 95305
[1189] 95306 95307 95310 95311 95312 95313 95315 95316 95317 95318 95320 95321
[1201] 95322 95323 95324 95325 95326 95327 95328 95329 95330 95333 95334 95335
[1213] 95336 95337 95338 95340 95345 95346 95348 95350 95351 95354 95355 95356
[1225] 95357 95358 95360 95361 95363 95364 95365 95366 95367 95368 95369 95370
[1237] 95372 95374 95376 95379 95380 95382 95383 95385 95386 95387 95388 95389
[1249] 95401 95403 95404 95405 95407 95409 95410 95412 95415 95417 95419 95420
[1261] 95421 95422 95423 95424 95425 95426 95427 95428 95429 95430 95431 95432
[1273] 95436 95437 95439 95441 95442 95443 95444 95445 95446 95448 95449 95450
[1285] 95451 95452 95453 95454 95456 95457 95458 95459 95460 95461 95462 95463
[1297] 95464 95465 95466 95468 95469 95470 95471 95472 95476 95480 95481 95482
[1309] 95485 95488 95490 95492 95493 95494 95497 95501 95502 95503 95511 95514
[1321] 95519 95521 95524 95525 95526 95527 95528 95531 95536 95537 95540 95542
[1333] 95543 95545 95546 95547 95548 95549 95550 95551 95552 95553 95554 95555
[1345] 95556 95558 95559 95560 95562 95563 95564 95565 95567 95568 95569 95570
[1357] 95571 95573 95585 95587 95589 95595 95601 95602 95603 95605 95606 95607
[1369] 95608 95610 95612 95613 95614 95615 95616 95618 95619 95620 95621 95623
[1381] 95624 95625 95626 95627 95628 95629 95630 95631 95632 95633 95634 95635
[1393] 95636 95637 95638 95639 95640 95641 95642 95645 95646 95648 95650 95651
[1405] 95653 95655 95658 95659 95660 95661 95662 95663 95664 95665 95666 95667
[1417] 95668 95669 95670 95672 95673 95674 95675 95676 95677 95678 95681 95682
[1429] 95683 95684 95685 95686 95687 95688 95689 95690 95691 95692 95693 95694
[1441] 95695 95701 95703 95709 95713 95714 95715 95717 95720 95721 95722 95726
[1453] 95728 95735 95736 95742 95746 95747 95758 95762 95765 95776 95814 95815
[1465] 95816 95817 95818 95819 95820 95821 95822 95823 95824 95825 95826 95827
[1477] 95828 95829 95830 95831 95832 95833 95834 95835 95836 95837 95838 95841
[1489] 95842 95843 95864 95901 95903 95910 95912 95913 95914 95916 95917 95918
[1501] 95919 95920 95922 95923 95925 95926 95928 95930 95932 95934 95935 95936
[1513] 95937 95938 95939 95941 95942 95943 95944 95945 95946 95947 95948 95949
[1525] 95950 95951 95953 95954 95955 95956 95957 95959 95960 95961 95962 95963
[1537] 95965 95966 95968 95969 95970 95971 95972 95973 95974 95975 95977 95978
[1549] 95979 95981 95982 95983 95984 95986 95987 95988 95991 95993 96001 96002
[1561] 96003 96006 96007 96008 96009 96010 96011 96013 96014 96015 96016 96017
[1573] 96019 96020 96021 96022 96023 96024 96025 96027 96028 96029 96031 96032
[1585] 96033 96034 96035 96037 96038 96039 96040 96041 96044 96046 96047 96048
[1597] 96050 96051 96052 96054 96055 96056 96057 96058 96059 96061 96062 96063
[1609] 96064 96065 96067 96068 96069 96071 96073 96074 96075 96076 96080 96084
[1621] 96085 96086 96087 96088 96090 96091 96092 96093 96094 96096 96097 96101
[1633] 96103 96104 96105 96106 96107 96108 96109 96110 96112 96113 96114 96115
[1645] 96116 96117 96118 96119 96120 96121 96122 96123 96124 96125 96126 96128
[1657] 96130 96132 96133 96134 96136 96137 96140 96141 96142 96143 96145 96146
[1669] 96148 96150 96161

length(unique(ZipCode$Zip.Code))

[1] 1671

head(ZipCode)

  Zip.Code Population
1    90001      54492
2    90002      44586
3    90003      58198
4    90004      67852
5    90005      43019
6    90006      62784

head(Customer)

  Customer.ID Gender Age Married Number.of.Dependents         City Zip.code
1  0002-ORFBO Female  37     Yes                    0 Frazier Park    93225
2  0003-MKNFE   Male  46      No                    0     Glendale    91206
3  0004-TLHLJ   Male  50      No                    0   Costa Mesa    92627
4  0011-IGKFF   Male  78     Yes                    0     Martinez    94553
5  0013-EXCHZ Female  75     Yes                    0    Camarillo    93010
6  0013-MHZWF Female  23      No                    3     Midpines    95345
  Latitude Longitude Number.of.Referrals Tenure.in.Months   Offer Phone.Service
1 34.82766 -118.9991                   2                9    None           Yes
2 34.16251 -118.2039                   0                9    None           Yes
3 33.64567 -117.9226                   0                4 Offer E           Yes
4 38.01446 -122.1154                   1               13 Offer D           Yes
5 34.22785 -119.0799                   3                3    None           Yes
6 37.58150 -119.9728                   0                9 Offer E           Yes
  Avg.Monthly.Long.Distance.Charges Multiple.Lines Internet.Service
1                             42.39             No              Yes
2                             10.69            Yes              Yes
3                             33.65             No              Yes
4                             27.82             No              Yes
5                              7.38             No              Yes
6                             16.77             No              Yes
  Internet.Type Avg.Monthly.GB.Download Online.Security Online.Backup
1         Cable                      16              No           Yes
2         Cable                      10              No            No
3   Fiber Optic                      30              No            No
4   Fiber Optic                       4              No           Yes
5   Fiber Optic                      11              No            No
6         Cable                      73              No            No
  Device.Protection.Plan Premium.Tech.Support Streaming.TV Streaming.Movies
1                     No                  Yes          Yes               No
2                     No                   No           No              Yes
3                    Yes                   No           No               No
4                    Yes                   No          Yes              Yes
5                     No                  Yes          Yes               No
6                     No                  Yes          Yes              Yes
  Streaming.Music Unlimited.Data       Contract Paperless.Billing
1              No            Yes       One Year               Yes
2             Yes             No Month-to-Month                No
3              No            Yes Month-to-Month               Yes
4              No            Yes Month-to-Month               Yes
5              No            Yes Month-to-Month               Yes
6             Yes            Yes Month-to-Month               Yes
   Payment.Method Monthly.Charge Total.Charges Total.Refunds
1     Credit Card           65.6        593.30          0.00
2     Credit Card           -4.0        542.40         38.33
3 Bank Withdrawal           73.9        280.85          0.00
4 Bank Withdrawal           98.0       1237.85          0.00
5     Credit Card           83.9        267.40          0.00
6     Credit Card           69.4        571.45          0.00
  Total.Extra.Data.Charges Total.Long.Distance.Charges Total.Revenue
1                        0                      381.51        974.81
2                       10                       96.21        610.28
3                        0                      134.60        415.45
4                        0                      361.66       1599.51
5                        0                       22.14        289.54
6                        0                      150.93        722.38
  Customer.Status  Churn.Category                  Churn.Reason
1          Stayed                                              
2          Stayed                                              
3         Churned      Competitor Competitor had better devices
4         Churned Dissatisfaction       Product dissatisfaction
5         Churned Dissatisfaction           Network reliability
6          Stayed                                              

?merge
Customer_ZipCode <- 
merge(x = Customer,
      y = ZipCode,
      by.x = "Zip.code",
      by.y = "Zip.Code"
      )

# install.packages(Amelia)
require(Amelia)

Loading required package: Amelia

Loading required package: Rcpp

## 
## Amelia II: Multiple Imputation
## (Version 1.8.2, built: 2024-04-10)
## Copyright (C) 2005-2024 James Honaker, Gary King and Matthew Blackwell
## Refer to http://gking.harvard.edu/amelia/ for more information
## 

missmap(Customer_ZipCode)

library("psych")
describe(Customer_ZipCode)

                                  vars    n     mean       sd   median  trimmed
Zip.code                             1 7043 93486.07  1856.77 93518.00 93571.63
Customer.ID*                         2 7043  3522.00  2033.28  3522.00  3522.00
Gender*                              3 7043     1.50     0.50     2.00     1.51
Age                                  4 7043    46.51    16.75    46.00    46.05
Married*                             5 7043     1.48     0.50     1.00     1.48
Number.of.Dependents                 6 7043     0.47     0.96     0.00     0.23
City*                                7 7043   589.04   307.80   605.00   597.55
Latitude                             8 7043    36.20     2.47    36.21    36.06
Longitude                            9 7043  -119.76     2.15  -119.60  -119.73
Number.of.Referrals                 10 7043     1.95     3.00     0.00     1.32
Tenure.in.Months                    11 7043    32.39    24.54    29.00    31.44
Offer*                              12 7043     2.40     1.83     1.00     2.12
Phone.Service*                      13 7043     1.90     0.30     2.00     2.00
Avg.Monthly.Long.Distance.Charges   14 6361    25.42    14.20    25.69    25.41
Multiple.Lines*                     15 7043     2.33     0.64     2.00     2.40
Internet.Service*                   16 7043     1.78     0.41     2.00     1.85
Internet.Type*                      17 7043     2.88     1.18     3.00     2.97
Avg.Monthly.GB.Download             18 5517    26.19    19.59    21.00    23.57
Online.Security*                    19 7043     2.07     0.71     2.00     2.09
Online.Backup*                      20 7043     2.13     0.74     2.00     2.16
Device.Protection.Plan*             21 7043     2.13     0.74     2.00     2.16
Premium.Tech.Support*               22 7043     2.07     0.71     2.00     2.09
Streaming.TV*                       23 7043     2.17     0.76     2.00     2.21
Streaming.Movies*                   24 7043     2.17     0.76     2.00     2.21
Streaming.Music*                    25 7043     2.14     0.74     2.00     2.17
Unlimited.Data*                     26 7043     2.46     0.83     3.00     2.57
Contract*                           27 7043     1.75     0.85     1.00     1.69
Paperless.Billing*                  28 7043     1.59     0.49     2.00     1.62
Payment.Method*                     29 7043     1.50     0.60     1.00     1.43
Monthly.Charge                      30 7043    63.60    31.20    70.05    64.06
Total.Charges                       31 7043  2280.38  2266.22  1394.55  1966.73
Total.Refunds                       32 7043     1.96     7.90     0.00     0.00
Total.Extra.Data.Charges            33 7043     6.86    25.10     0.00     0.04
Total.Long.Distance.Charges         34 7043   749.10   846.66   401.44   605.63
Total.Revenue                       35 7043  3034.38  2865.20  2108.64  2660.75
Customer.Status*                    36 7043     2.40     0.88     3.00     2.51
Churn.Category*                     37 7043     1.67     1.28     1.00     1.36
Churn.Reason*                       38 7043     2.96     4.42     1.00     1.71
Population                          39 7043 22139.60 21152.39 17554.00 19503.96
                                       mad      min       max     range  skew
Zip.code                           2379.57 90001.00  96150.00   6149.00 -0.21
Customer.ID*                       2610.86     1.00   7043.00   7042.00  0.00
Gender*                               0.00     1.00      2.00      1.00 -0.02
Age                                  20.76    19.00     80.00     61.00  0.16
Married*                              0.00     1.00      2.00      1.00  0.07
Number.of.Dependents                  0.00     0.00      9.00      9.00  2.11
City*                               375.10     1.00   1106.00   1105.00 -0.21
Latitude                              3.22    32.56     41.96      9.41  0.31
Longitude                             2.74  -124.30   -114.19     10.11 -0.09
Number.of.Referrals                   0.00     0.00     11.00     11.00  1.45
Tenure.in.Months                     32.62     1.00     72.00     71.00  0.24
Offer*                                0.00     1.00      6.00      5.00  0.92
Phone.Service*                        0.00     1.00      2.00      1.00 -2.73
Avg.Monthly.Long.Distance.Charges    18.22     1.01     49.99     48.98  0.00
Multiple.Lines*                       1.48     1.00      3.00      2.00 -0.42
Internet.Service*                     0.00     1.00      2.00      1.00 -1.38
Internet.Type*                        1.48     1.00      4.00      3.00 -0.55
Avg.Monthly.GB.Download              13.34     2.00     85.00     83.00  1.18
Online.Security*                      1.48     1.00      3.00      2.00 -0.10
Online.Backup*                        1.48     1.00      3.00      2.00 -0.21
Device.Protection.Plan*               1.48     1.00      3.00      2.00 -0.21
Premium.Tech.Support*                 1.48     1.00      3.00      2.00 -0.11
Streaming.TV*                         1.48     1.00      3.00      2.00 -0.29
Streaming.Movies*                     1.48     1.00      3.00      2.00 -0.30
Streaming.Music*                      1.48     1.00      3.00      2.00 -0.22
Unlimited.Data*                       0.00     1.00      3.00      2.00 -1.02
Contract*                             0.00     1.00      3.00      2.00  0.49
Paperless.Billing*                    0.00     1.00      2.00      1.00 -0.38
Payment.Method*                       0.00     1.00      3.00      2.00  0.76
Monthly.Charge                       36.32   -10.00    118.75    128.75 -0.28
Total.Charges                      1808.40    18.80   8684.80   8666.00  0.96
Total.Refunds                         0.00     0.00     49.79     49.79  4.33
Total.Extra.Data.Charges              0.00     0.00    150.00    150.00  4.09
Total.Long.Distance.Charges         566.53     0.00   3564.72   3564.72  1.24
Total.Revenue                      2620.66    21.36  11979.34  11957.98  0.92
Customer.Status*                      0.00     1.00      3.00      2.00 -0.88
Churn.Category*                       0.00     1.00      6.00      5.00  1.91
Churn.Reason*                         0.00     1.00     21.00     20.00  2.65
Population                        23471.04    11.00 105285.00 105274.00  0.91
                                  kurtosis     se
Zip.code                             -1.17  22.12
Customer.ID*                         -1.20  24.23
Gender*                              -2.00   0.01
Age                                  -1.00   0.20
Married*                             -2.00   0.01
Number.of.Dependents                  4.44   0.01
City*                                -1.13   3.67
Latitude                             -1.16   0.03
Longitude                            -1.19   0.03
Number.of.Referrals                   0.72   0.04
Tenure.in.Months                     -1.39   0.29
Offer*                               -0.70   0.02
Phone.Service*                        5.43   0.00
Avg.Monthly.Long.Distance.Charges    -1.21   0.18
Multiple.Lines*                      -0.71   0.01
Internet.Service*                    -0.11   0.00
Internet.Type*                       -1.24   0.01
Avg.Monthly.GB.Download               0.63   0.26
Online.Security*                     -0.99   0.01
Online.Backup*                       -1.15   0.01
Device.Protection.Plan*              -1.15   0.01
Premium.Tech.Support*                -1.01   0.01
Streaming.TV*                        -1.21   0.01
Streaming.Movies*                    -1.21   0.01
Streaming.Music*                     -1.16   0.01
Unlimited.Data*                      -0.76   0.01
Contract*                            -1.44   0.01
Paperless.Billing*                   -1.86   0.01
Payment.Method*                      -0.40   0.01
Monthly.Charge                       -1.13   0.37
Total.Charges                        -0.23  27.00
Total.Refunds                        18.33   0.09
Total.Extra.Data.Charges             16.44   0.30
Total.Long.Distance.Charges           0.64  10.09
Total.Revenue                        -0.20  34.14
Customer.Status*                     -1.12   0.01
Churn.Category*                       2.76   0.02
Churn.Reason*                         6.36   0.05
Population                            0.32 252.05

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, union

?sample_n(x, n)

#install.packages("openxlsx")
library(openxlsx)

Sample_Customer_ZipCode <- sample_n(tbl = Customer_ZipCode, 
                                    size = 4000)

# install.packages("writexl")
library(writexl)
?writexl

write_xlsx(Sample_Customer_ZipCode, "~/Desktop/BCE Coding/telecom_customer_churn.csv" )