Proyecto

Instalamos los paquetes necesarios para el trabajo

install.packages("tidyverse")
install.packages("readxl")
install.packages("VIM")
install.packages("mice")
install.packages("visdat")
install.packages("plotly")
install.packages("cowplot")
install.packages("ggplot2")
install.packages("dplyr")
install.packages("missForest")

library(tidyverse)
library(readxl)
library(VIM)
library(mice)
library(visdat)
library(plotly)
library(cowplot)
library(ggplot2)
library(dplyr)
library(missForest)

1. Subimos la data a R Studio. Realizamos un análisis exploratorio de datos donde podemos ver la estructura a través de str y un resumen estadeístico de los datos con summary que nos permite comprender mejor la data.

data <- read_csv("/Users/daniellariviere/Downloads/data.csv")

Rows: 45211 Columns: 17── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (10): job, marital, education, default, housing, loan, contact, month, poutcome, y
dbl  (7): age, balance, day, duration, campaign, pdays, previous
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

str(data)

spc_tbl_ [45,211 × 17] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
 $ age      : num [1:45211] 58 44 33 47 33 35 28 42 58 43 ...
 $ job      : chr [1:45211] "management" "technician" "entrepreneur" "blue-collar" ...
 $ marital  : chr [1:45211] "married" "single" "married" "married" ...
 $ education: chr [1:45211] "tertiary" "secondary" "secondary" "unknown" ...
 $ default  : chr [1:45211] "no" "no" "no" "no" ...
 $ balance  : num [1:45211] 2143 29 2 1506 1 ...
 $ housing  : chr [1:45211] "yes" "yes" "yes" "yes" ...
 $ loan     : chr [1:45211] "no" "no" "yes" "no" ...
 $ contact  : chr [1:45211] "unknown" "unknown" "unknown" "unknown" ...
 $ day      : num [1:45211] 5 5 5 5 5 5 5 5 5 5 ...
 $ month    : chr [1:45211] "may" "may" "may" "may" ...
 $ duration : num [1:45211] 261 151 76 92 198 139 217 380 50 55 ...
 $ campaign : num [1:45211] 1 1 1 1 1 1 1 1 1 1 ...
 $ pdays    : num [1:45211] -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 ...
 $ previous : num [1:45211] 0 0 0 0 0 0 0 0 0 0 ...
 $ poutcome : chr [1:45211] "unknown" "unknown" "unknown" "unknown" ...
 $ y        : chr [1:45211] "no" "no" "no" "no" ...
 - attr(*, "spec")=
  .. cols(
  ..   age = col_double(),
  ..   job = col_character(),
  ..   marital = col_character(),
  ..   education = col_character(),
  ..   default = col_character(),
  ..   balance = col_double(),
  ..   housing = col_character(),
  ..   loan = col_character(),
  ..   contact = col_character(),
  ..   day = col_double(),
  ..   month = col_character(),
  ..   duration = col_double(),
  ..   campaign = col_double(),
  ..   pdays = col_double(),
  ..   previous = col_double(),
  ..   poutcome = col_character(),
  ..   y = col_character()
  .. )
 - attr(*, "problems")=<externalptr> 

summary(data)

      age            job              marital           education           default             balance      
 Min.   :18.00   Length:45211       Length:45211       Length:45211       Length:45211       Min.   : -8019  
 1st Qu.:33.00   Class :character   Class :character   Class :character   Class :character   1st Qu.:    72  
 Median :39.00   Mode  :character   Mode  :character   Mode  :character   Mode  :character   Median :   448  
 Mean   :40.94                                                                               Mean   :  1362  
 3rd Qu.:48.00                                                                               3rd Qu.:  1428  
 Max.   :95.00                                                                               Max.   :102127  
   housing              loan             contact               day           month              duration     
 Length:45211       Length:45211       Length:45211       Min.   : 1.00   Length:45211       Min.   :   0.0  
 Class :character   Class :character   Class :character   1st Qu.: 8.00   Class :character   1st Qu.: 103.0  
 Mode  :character   Mode  :character   Mode  :character   Median :16.00   Mode  :character   Median : 180.0  
                                                          Mean   :15.81                      Mean   : 258.2  
                                                          3rd Qu.:21.00                      3rd Qu.: 319.0  
                                                          Max.   :31.00                      Max.   :4918.0  
    campaign          pdays          previous          poutcome              y            
 Min.   : 1.000   Min.   : -1.0   Min.   :  0.0000   Length:45211       Length:45211      
 1st Qu.: 1.000   1st Qu.: -1.0   1st Qu.:  0.0000   Class :character   Class :character  
 Median : 2.000   Median : -1.0   Median :  0.0000   Mode  :character   Mode  :character  
 Mean   : 2.764   Mean   : 40.2   Mean   :  0.5803                                        
 3rd Qu.: 3.000   3rd Qu.: -1.0   3rd Qu.:  0.0000                                        
 Max.   :63.000   Max.   :871.0   Max.   :275.0000                                        

Creamos histogramas de las variables cuantitativas y cualitativas que consideramos de mayor importancia.

ggplot(data = data, mapping = aes(x = age)) +
  geom_histogram(binwidth = 1)

ggplot(data = data, mapping = aes(x = balance)) +
  geom_histogram(binwidth = 1000)+  xlim(-5000, 25000) + 
  theme(legend.position = "none")

ggplot(data = data, mapping = aes(x = duration)) +
  geom_histogram(binwidth = 1)

ggplot(data = data, mapping = aes(x = pdays)) +
  geom_histogram(binwidth = 100)

ggplot(data = data) +
  geom_bar(mapping = aes(x = job), width=0.5)+theme(axis.text.x=element_text(angle = 45,hjust = 1))

ggplot(data = data) +
  geom_bar(mapping = aes(x = marital), width=0.5)

ggplot(data = data) +
  geom_bar(mapping = aes(x = education), width=0.5)

ggplot(data = data) +
  geom_bar(mapping = aes(x = default), width=0.5)

ggplot(data = data) +
  geom_bar(mapping = aes(x = housing), width=0.5)

ggplot(data = data) +
  geom_bar(mapping = aes(x = loan), width=0.5)

ggplot(data = data) +
  geom_bar(mapping = aes(x = y), width=0.5)

Al revisar nuestra data, podemos observar que los datos tienen ciertas características. Por ejemplo, si vemos el histograma de la edad podemos observar como los clientes del banco se concentran en las edades de 20 a aproximadamente 60 años. Por otro lado, podemos ver que por trabajo los clientes que más tienen cuentas son los técnicos, gerentes y empresarios. Otro dato interesante es que la mayoría de los clientes están casados y que la mayoría de los clientes del banco no presentan mora.

2. Seleccionamos dos casos con diferentes porcentajes de datos faltantes uno con 12,5% de datos faltantes y uno con 20% de datos faltantes

set.seed(42)
data_NA_1 <-prodNA(data, noNA = 0.125)
data_NA_2 <-prodNA(data, noNA = 0.20)

Visualización de datos faltantes

vis_dat(data_NA_1)

vis_dat(data_NA_2)

vis_miss(data_NA_1, sort_miss = TRUE)

vis_miss(data_NA_2, sort_miss = TRUE)

data_numeric_NA1 <- dplyr::select(data_NA_1, where(is.numeric))
data_numeric_NA2 <- dplyr::select(data_NA_2, where(is.numeric))

vis_cor(data_numeric_NA1, na_action = "complete.obs")

vis_cor(data_numeric_NA2, na_action = "complete.obs")

vis_guess(data_NA_1)

vis_guess(data_NA_2)

Por otro lado, en nuestro data_NA_1 tenemos 12,5% de los datos faltantes y en datos_NA_2 tenemos un 20% de datos faltantes. Sin embargo podemos observar en nuestra gráfica de correlación como la segunda data tiene una correlación más alta. Por lo que podemos deducir que en datos_NA_1 los datos más altos formaron parte del 12,5% faltante y en datos_NA_2 los valores más altos no fueron eliminados en el 20% faltante.

Tratamiento de Datos Faltantes

# Imputación de datos faltantes con diferentes métodos de Balance 

val_imput_1 <- data.frame(
  original = data_NA_1$balance,
  imput_cero = replace(data_NA_1$balance, is.na(data_NA_1$balance), 0),
  imput_media = replace(data_NA_1$balance, is.na(data_NA_1$balance), mean(data_NA_1$balance, na.rm = TRUE)),
  imput_mediana = replace(data_NA_1$balance, is.na(data_NA_1$balance), median(data_NA_1$balance, na.rm = TRUE))
)

val_imput_2 <- data.frame(
  original = data_NA_2$balance,
  imput_cero = replace(data_NA_2$balance, is.na(data_NA_2$balance), 0),
  imput_media = replace(data_NA_2$balance, is.na(data_NA_2$balance), mean(data_NA_2$balance, na.rm = TRUE)),
  imput_mediana = replace(data_NA_2$balance, is.na(data_NA_2$balance), median(data_NA_2$balance, na.rm = TRUE))
)

Visualización de distribuciones tras imputación

h1 <- ggplot(val_imput_1, aes(x = original)) + geom_histogram(fill = "#ad1538", color = "#000000") + ggtitle("Distribución Original") + theme_classic() 

h2 <- ggplot(val_imput_1, aes(x = imput_cero)) + geom_histogram(fill = "#15ad4f", color = "#000000") + ggtitle("Cero-distribución") + theme_classic()

h3 <- ggplot(val_imput_1, aes(x = imput_media)) + geom_histogram(fill = "#1543ad", color = "#000000") + ggtitle("Media-distribución") + theme_classic()

h4 <- ggplot(val_imput_1, aes(x = imput_mediana)) + geom_histogram(fill = "#ad8415", color = "#000000") + ggtitle("Mediana-distribución") + theme_classic()

plot_grid(h1, h2, h3, h4, nrow = 2, ncol = 2)

`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.Warning: Removed 5691 rows containing non-finite outside the scale range (`stat_bin()`).`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

g1 <- ggplot(val_imput_2, aes(x = original)) + geom_histogram(fill = "#ad1538", color = "#000000") + ggtitle("Distribución Original") + theme_classic() 

g2 <- ggplot(val_imput_2, aes(x = imput_cero)) + geom_histogram(fill = "#15ad4f", color = "#000000") + ggtitle("Cero-distribución") + theme_classic()

g3 <- ggplot(val_imput_2, aes(x = imput_media)) + geom_histogram(fill = "#1543ad", color = "#000000") + ggtitle("Media-distribución") + theme_classic()

g4 <- ggplot(val_imput_2, aes(x = imput_mediana)) + geom_histogram(fill = "#ad8415", color = "#000000") + ggtitle("Mediana-distribución") + theme_classic()

plot_grid(g1, g2, g3, g4, nrow = 2, ncol = 2)

`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.Warning: Removed 9155 rows containing non-finite outside the scale range (`stat_bin()`).`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Al realizar la imputación de las variables, podemos observar que la imputación cero e imputación de la media son los peores metodos de imputación, ya que la distribución de estas son las más distinta a la distribución original. Por otro lado, podemos deducir que no hay diferencia de eliminar 12,5% de data a eliminar 20% ya que se observa que en ambos casos la distribución de los datos se mantienen similar.

3)Detección y Tratamiento de Valores Atípicos

outlier_detection <- function(x) {
  if (!is.numeric(x)) {
    stop("Input tiene que ser numerico.")
  }
  
  lower_bound <- quantile(x, 0.025, na.rm = TRUE)
  upper_bound <- quantile(x, 0.975, na.rm = TRUE)
  
  return(which(x < lower_bound | x > upper_bound))
}

Creamos nuestra funcion para que los valores atipicos solo sean numericos.Luego creamos un rango entre 2,5% y 97,5%. Los valores que no pertenecen a este rango son valores atipicos. Es decir, el 5% de data numerica, son valores atipicos.
Aplicar a variables numéricas

data_numeric <- data %>% select(where(is.numeric))
outliers_list <- lapply(data_numeric, outlier_detection)
print(outliers_list)

$age
   [1]    55   136   247   293   298   370   444   701  1047  1239  1300  1442  1719  1746  1758  1800  1825  1837  1899
  [20]  1934  2005  2168  2198  2200  2202  2209  2228  2236  2240  2258  2260  2318  2328  2333  2340  2346  2356  2357
  [39]  2360  2364  2379  2380  2388  2397  2400  2401  2403  2409  2421  2424  2428  2429  2475  2524  2656  2657  2671
  [58]  2703  3112  3161  3302  3347  3396  3451  3568  3579  3628  3764  3766  3812  3813  3826  3835  3836  3841  3847
  [77]  3848  3930  3932  3954  3992  4017  4158  4174  4178  4204  4208  4248  4255  4259  4269  4273  4299  4318  4339
  [96]  4345  4369  4482  4530  4737  4896  4996  5047  5069  5159  5312  5361  5382  5384  5392  5506  5882  5908  5922
 [115]  5986  5991  6007  6033  6062  6080  6158  6190  6191  6220  6223  6226  6249  6280  6313  6324  6383  6385  6397
 [134]  6413  6438  6440  6481  6488  6495  6505  6543  6587  6658  6662  6672  6675  6694  6699  6746  6763  6769  6775
 [153]  6786  6822  6839  6889  6969  6974  6987  7037  7054  7095  7111  7181  7260  7367  7516  7525  7728  7734  7851
 [172]  7885  7896  7926  8012  8166  8328  8347  8407  8444  8470  8488  8517  8555  8560  8607  8668  8706  8732  8749
 [191]  8754  8774  8775  8777  8778  8788  8789  8792  8793  8795  8801  8811  8819  8821  8852  8870  8925  8947  9037
 [210]  9207  9295  9592 10176 10455 11073 11148 11503 11509 11518 11612 11833 11915 11948 12057 12098 12253 12339 12373
 [229] 12402 12407 12498 12620 16586 18308 21316 24148 24163 27716 27721 28907 28918 28925 28954 28959 28966 29159 29262
 [248] 29264 29298 29323 29325 29331 29369 29383 29386 29465 29509 29514 29611 29615 29639 29866 29945 29948 29962 30177
 [267] 30226 30265 30489 30592 30628 30642 30697 30792 30804 30908 30909 31006 31019 31033 31042 31048 31049 31050 31052
 [286] 31053 31056 31058 31063 31067 31070 31073 31075 31078 31088 31090 31091 31095 31100 31102 31103 31104 31107 31109
 [305] 31115 31117 31120 31125 31126 31127 31131 31142 31146 31150 31151 31152 31184 31189 31190 31210 31222 31234 31241
 [324] 31246 31250 31252 31256 31259 31262 31264 31273 31281 31283 31286 31297 31299 31305 31311 31317 31323 31324 31325
 [343] 31333 31342 31346 31350 31354 31366 31377 31384 31394 31396 31399 31401 31406 31415 31429 31433 31435 31443 31444
 [362] 31448 31451 31483 31493 31502 31511 31516 31528 31532 31543 31558 31567 31570 31622 31623 31648 31672 31675 31724
 [381] 31732 31738 31772 31796 31800 31817 31832 31846 31853 31920 31921 32010 32015 32033 32039 32042 32049 32052 32056
 [400] 32063 32065 32066 32069 32070 32075 32090 32100 32106 32111 32147 32154 32161 32170 32184 32205 32212 32251 32262
 [419] 32266 32299 32322 32356 32391 32413 32435 32439 32448 32452 32533 32584 32585 32596 32625 32661 32690 32700 32803
 [438] 32821 32963 32982 33014 33018 33041 33072 33073 33081 33126 33209 33215 33217 33258 33263 33288 33333 33361 33415
 [457] 33448 33456 33480 33504 33561 33596 33689 33699 33700 33701 33707 33711 33718 33720 33726 33730 33732 33741 33742
 [476] 33744 33748 33751 33752 33753 33754 33757 33767 33775 33776 33778 33781 33783 33785 33789 33790 33792 33795 33804
 [495] 33811 33812 33815 33816 33821 33825 33828 33835 33846 33847 33848 33850 33857 33861 33908 33909 33949 34013 34022
 [514] 34027 34060 34063 34100 34122 34129 34170 34178 34205 34220 34233 34245 34267 34282 34289 34320 34327 34338 34350
 [533] 34362 34386 34395 34434 34463 34504 34511 34519 34531 34533 34550 34676 34685 34760 34772 34805 34814 34824 34869
 [552] 34874 34957 35023 35103 35127 35176 35179 35247 35286 35288 35289 35338 35371 35433 35438 35464 35498 35511 35554
 [571] 35584 35593 35689 35736 35960 36162 36176 36233 36286 36630 36700 36816 37012 37076 37145 37270 37371 37399 37661
 [590] 37720 37790 37800 37811 37845 37956 37958 38139 38152 38156 38172 38209 38225 38238 38280 38297 38304 38312 38313
 [609] 38321 38335 38342 38358 38366 38378 38422 38446 38452 38453 38461 38479 38480 38481 38502 38567 38631 38686 38732
 [628] 38752 38755 38780 38808 38817 38818 38821 38822 38833 38834 38835 38842 38845 38854 38889 38894 38903 38922 38925
 [647] 38933 38935 38955 38969 38985 39013 39024 39066 39069 39088 39095 39109 39116 39150 39172 39194 39199 39214 39224
 [666] 39230 39253 39272 39276 39285 39289 39290 39305 39309 39318 39324 39327 39331 39344 39348 39362 39376 39437 39467
 [685] 39488 39534 39536 39593 39605 39632 39652 39655 39676 39684 39702 39708 39711 39729 39740 39741 39773 39817 39915
 [704] 39972 40023 40046 40091 40095 40096 40119 40122 40124 40126 40141 40148 40161 40163 40184 40227 40240 40242 40257
 [723] 40281 40296 40305 40311 40317 40318 40329 40332 40352 40364 40368 40369 40371 40375 40376 40377 40381 40382 40383
 [742] 40384 40390 40394 40398 40402 40403 40405 40413 40431 40451 40460 40461 40463 40465 40467 40468 40472 40477 40478
 [761] 40480 40481 40482 40483 40487 40493 40499 40503 40511 40513 40516 40525 40527 40532 40536 40539 40550 40553 40556
 [780] 40559 40560 40561 40562 40564 40565 40568 40570 40572 40585 40587 40588 40596 40602 40613 40620 40622 40623 40624
 [799] 40636 40642 40646 40648 40656 40658 40664 40666 40668 40675 40677 40678 40679 40680 40681 40682 40684 40689 40694
 [818] 40698 40700 40701 40703 40711 40713 40727 40733 40735 40737 40738 40745 40749 40757 40760 40767 40771 40774 40775
 [837] 40782 40783 40786 40787 40790 40793 40795 40797 40803 40804 40808 40817 40822 40823 40837 40838 40839 40843 40844
 [856] 40846 40850 40852 40853 40864 40865 40867 40873 40874 40888 40897 40902 40908 40910 40911 40914 40916 40922 40928
 [875] 40933 40944 40945 40948 40955 40957 40958 40967 40973 40974 40977 40979 40983 40988 40989 40992 40993 40994 40998
 [894] 41008 41030 41037 41038 41042 41043 41052 41054 41058 41062 41064 41067 41070 41073 41074 41077 41100 41102 41103
 [913] 41105 41121 41122 41124 41126 41129 41130 41135 41137 41145 41146 41152 41154 41157 41161 41162 41163 41172 41180
 [932] 41181 41184 41189 41194 41197 41198 41210 41211 41219 41223 41228 41231 41238 41243 41244 41248 41252 41253 41258
 [951] 41259 41262 41269 41271 41274 41276 41277 41284 41287 41291 41292 41294 41295 41300 41311 41319 41321 41326 41332
 [970] 41337 41340 41343 41347 41353 41356 41368 41373 41374 41377 41380 41384 41386 41388 41389 41397 41398 41403 41406
 [989] 41407 41414 41419 41421 41424 41433 41434 41440 41442 41447 41448 41449
 [ reached getOption("max.print") -- omitted 850 entries ]

$balance
   [1]    35    70   101   211   333   335   383   392   447   463   705   760   779   839   917   921   935   975  1022
  [20]  1170  1192  1237  1260  1326  1352  1365  1502  1531  1570  1581  1741  1763  1778  1822  1846  1874  1897  1904
  [39]  1950  1992  1994  1998  2012  2066  2088  2100  2103  2127  2171  2204  2211  2281  2287  2336  2343  2344  2363
  [58]  2365  2392  2410  2480  2487  2500  2505  2513  2552  2555  2577  2590  2619  2620  2636  2657  2679  2742  2779
  [77]  2835  2852  2853  2900  2932  2933  2939  3011  3013  3025  3034  3090  3100  3142  3149  3169  3180  3189  3198
  [96]  3238  3289  3306  3328  3331  3371  3432  3450  3480  3483  3487  3501  3587  3608  3613  3685  3693  3726  3775
 [115]  3799  3800  3807  3810  3831  3852  3879  3965  3998  4026  4070  4082  4083  4085  4096  4136  4151  4191  4193
 [134]  4296  4331  4387  4479  4484  4492  4516  4519  4553  4584  4623  4626  4631  4743  4787  4803  4810  4823  4847
 [153]  4852  4893  4914  4935  4948  4955  4959  4966  4976  4995  5008  5086  5092  5121  5123  5134  5146  5200  5220
 [172]  5223  5242  5250  5278  5280  5298  5303  5307  5310  5318  5355  5375  5383  5387  5415  5432  5449  5451  5465
 [191]  5472  5513  5521  5527  5535  5562  5565  5590  5614  5620  5628  5650  5657  5662  5666  5667  5674  5684  5685
 [210]  5686  5716  5723  5726  5732  5742  5745  5753  5760  5762  5768  5788  5789  5790  5791  5797  5803  5824  5831
 [229]  5832  5848  5849  5866  5869  5874  5895  5897  5903  5904  5914  5917  5919  5934  5935  5938  5953  5970  5979
 [248]  5996  6011  6026  6028  6032  6051  6075  6077  6081  6131  6136  6142  6157  6160  6172  6175  6192  6193  6201
 [267]  6213  6220  6226  6237  6238  6248  6253  6255  6261  6274  6290  6317  6324  6329  6333  6336  6337  6339  6342
 [286]  6343  6361  6364  6381  6395  6402  6412  6430  6432  6436  6447  6454  6455  6459  6466  6469  6477  6486  6496
 [305]  6508  6530  6531  6538  6540  6553  6556  6564  6572  6580  6590  6620  6624  6626  6652  6656  6657  6658  6665
 [324]  6667  6710  6712  6724  6729  6761  6766  6778  6780  6782  6794  6800  6826  6828  6836  6841  6850  6862  6872
 [343]  6877  6884  6904  6906  6940  6968  6980  6984  6991  7002  7015  7019  7024  7027  7038  7045  7053  7068  7069
 [362]  7075  7079  7080  7137  7157  7166  7167  7170  7191  7199  7201  7204  7212  7229  7230  7231  7235  7240  7253
 [381]  7269  7291  7296  7299  7332  7333  7335  7346  7363  7395  7414  7457  7503  7504  7510  7520  7521  7535  7546
 [400]  7551  7555  7564  7571  7628  7635  7640  7675  7682  7732  7744  7757  7783  7787  7807  7823  7844  7850  7866
 [419]  7870  7884  7914  7936  7950  7970  7978  7988  7992  8009  8029  8044  8128  8130  8152  8181  8183  8185  8197
 [438]  8204  8219  8245  8247  8252  8271  8274  8275  8287  8295  8323  8334  8335  8336  8338  8346  8350  8363  8366
 [457]  8369  8378  8379  8385  8386  8403  8406  8423  8431  8434  8443  8462  8466  8473  8480  8486  8526  8535  8556
 [476]  8558  8564  8572  8575  8589  8631  8635  8677  8688  8695  8701  8703  8706  8712  8714  8718  8725  8732  8755
 [495]  8758  8759  8801  8818  8826  8829  8853  8855  8889  8892  8902  8976  8980  9004  9006  9046  9048  9069  9077
 [514]  9080  9118  9163  9170  9179  9224  9227  9240  9242  9279  9313  9345  9378  9379  9422  9426  9428  9443  9462
 [533]  9467  9473  9478  9532  9537  9539  9544  9553  9565  9577  9599  9626  9631  9670  9687  9706  9721  9763  9779
 [552]  9790  9794  9804  9809  9810  9821  9823  9833  9852  9858  9869  9872  9896  9923  9934  9960  9987 10003 10022
 [571] 10039 10060 10062 10063 10108 10164 10174 10180 10181 10193 10203 10207 10261 10263 10279 10336 10403 10422 10425
 [590] 10498 10514 10515 10544 10569 10599 10607 10617 10619 10625 10626 10651 10671 10728 10750 10752 10804 10842 10956
 [609] 10975 10993 11071 11082 11103 11118 11139 11142 11170 11172 11188 11194 11215 11231 11247 11280 11284 11308 11313
 [628] 11337 11341 11362 11390 11412 11483 11498 11499 11509 11514 11567 11606 11656 11715 11745 11747 11759 11762 11774
 [647] 11780 11782 11809 11819 11823 11871 11884 11910 11919 11926 11957 11962 11988 12006 12009 12031 12064 12068 12100
 [666] 12115 12122 12141 12149 12151 12206 12221 12227 12241 12245 12255 12264 12281 12282 12293 12295 12300 12358 12362
 [685] 12367 12368 12387 12393 12404 12411 12424 12480 12508 12527 12542 12560 12580 12585 12614 12657 12713 12716 12760
 [704] 12766 12808 12838 12845 12847 12875 12877 12901 12910 12927 12929 12943 12947 12962 12980 13005 13009 13019 13057
 [723] 13067 13068 13072 13073 13096 13102 13117 13122 13128 13155 13171 13180 13194 13198 13219 13282 13319 13334 13350
 [742] 13380 13412 13447 13481 13486 13489 13494 13544 13551 13555 13586 13615 13661 13688 13697 13709 13717 13725 13744
 [761] 13746 13749 13773 13791 13804 13813 13828 13866 13885 13889 13909 13955 13973 14014 14019 14021 14036 14040 14041
 [780] 14068 14073 14115 14129 14172 14208 14228 14231 14238 14273 14297 14307 14313 14414 14435 14469 14480 14499 14554
 [799] 14595 14611 14634 14650 14725 14776 14805 14817 14842 14848 14853 14856 14932 14933 14947 14964 14967 14968 14981
 [818] 14994 15027 15040 15077 15122 15136 15182 15201 15206 15214 15289 15349 15356 15358 15363 15386 15395 15431 15441
 [837] 15456 15479 15484 15485 15512 15550 15557 15632 15656 15662 15683 15687 15730 15736 15737 15778 15782 15789 15797
 [856] 15798 15800 15814 15826 15853 15866 15868 15869 15870 15880 15884 15892 15925 15928 15959 15968 15987 15991 15998
 [875] 16073 16081 16095 16137 16146 16147 16177 16227 16243 16269 16273 16290 16313 16321 16343 16348 16364 16372 16375
 [894] 16407 16415 16416 16424 16438 16456 16462 16472 16513 16538 16605 16673 16675 16710 16736 16739 16765 16822 16836
 [913] 16881 16884 16909 16920 16925 16926 16929 16949 17013 17022 17112 17131 17135 17144 17160 17166 17196 17214 17228
 [932] 17246 17268 17270 17275 17292 17296 17321 17332 17335 17360 17404 17413 17442 17458 17478 17512 17535 17536 17538
 [951] 17542 17565 17568 17581 17605 17693 17715 17733 17737 17772 17828 17842 17843 17868 17893 17905 17919 17935 17962
 [970] 17967 17971 17972 18006 18034 18061 18107 18115 18122 18127 18147 18185 18212 18240 18257 18260 18272 18303 18324
 [989] 18328 18345 18361 18362 18371 18396 18411 18415 18417 18419 18433 18435
 [ reached getOption("max.print") -- omitted 1261 entries ]

$day
  [1] 12444 12445 12446 12447 12448 12449 12450 12451 12452 12453 12454 12455 12456 12457 12458 12459 12460 12461 12462
 [20] 12463 12464 12465 12466 12467 12468 12469 12470 12471 12472 12473 12474 12475 12476 12477 12478 12479 12480 12481
 [39] 12482 12483 12484 12485 12486 12487 12488 12489 12490 12491 12492 12493 12494 12495 12496 18245 18246 18247 18248
 [58] 18249 18250 18251 18252 18253 18254 18255 18256 18257 18258 18259 18260 18261 18262 18263 18264 18265 18266 18267
 [77] 18268 18269 18270 18271 18272 18273 18274 18275 18276 18277 18278 18279 18280 18281 18282 18283 18284 18285 18286
 [96] 18287 18288 18289 18290 18291 18292 18293 18294 18295 18296 18297 18298 18299 18300 18301 18302 18303 18304 18305
[115] 18306 18307 18308 18309 18310 18311 18312 18313 18314 18315 18316 18317 18318 18319 18320 18321 18322 18323 18324
[134] 18325 18326 18327 18328 18329 18330 18331 18332 18333 18334 18335 18336 18337 18338 18339 18340 18341 18342 18343
[153] 18344 18345 18346 18347 18348 18349 18350 18351 18352 18353 18354 18355 18356 18357 18358 18359 18360 18361 18362
[172] 18363 18364 18365 18366 18367 18368 18369 18370 18371 18372 18373 18374 18375 18376 18377 18378 18379 18380 18381
[191] 18382 18383 18384 18385 18386 18387 18388 18389 18390 18391 18392 18393 18394 18395 18396 18397 18398 18399 18400
[210] 18401 18402 18403 18404 18405 18406 18407 18408 18409 18410 18411 18412 18413 18414 18415 18416 18417 18418 18419
[229] 18420 18421 18422 18423 18424 18425 18426 18427 18428 18429 18430 18431 18432 18433 18434 18435 18436 18437 18438
[248] 18439 18440 18441 18442 18443 18444 18445 18446 18447 18448 18449 18450 18451 18452 18453 18454 18455 18456 18457
[267] 18458 18459 18460 18461 18462 18463 18464 18465 18466 18467 18468 18469 18470 18471 18472 18473 18474 18475 18476
[286] 18477 18478 18479 18480 18481 18482 18483 18484 18485 18486 18487 18488 18489 18490 18491 18492 18493 18494 18495
[305] 18496 18497 18498 18499 18500 18501 18502 18503 18504 18505 18506 18507 18508 18509 18510 18511 18512 18513 18514
[324] 18515 18516 18517 18518 18519 18520 18521 18522 18523 18524 18525 18526 18527 18528 18529 18530 18531 18532 18533
[343] 18534 18535 18536 18537 18538 18539 18540 18541 18542 18543 18544 18545 18546 18547 18548 18549 18550 18551 18552
[362] 18553 18554 18555 18556 18557 18558 18559 18560 18561 18562 18563 18564 18565 18566 18567 18568 18569 18570 18571
[381] 18572 18573 18574 18575 18576 18577 18578 18579 18580 18581 18582 18583 18584 18585 18586 18587 18588 18589 18590
[400] 18591 18592 18593 18594 18595 18596 18597 18598 18599 18600 18601 18602 18603 18604 18605 18606 18607 18608 18609
[419] 18610 18611 18612 18613 18614 18615 18616 18617 18618 18619 18620 18621 18622 18623 18624 18625 18626 18627 18628
[438] 18629 18630 18631 18632 18633 18634 18635 18636 18637 18638 18639 18640 18641 18642 18643 18644 18645 18646 18647
[457] 18648 18649 18650 18651 18652 18653 18654 18655 18656 18657 18658 18659 18660 18661 18662 18663 18664 18665 18666
[476] 18667 18668 18669 18670 18671 18672 18673 18674 18675 18676 18677 18678 18679 18680 18681 18682 18683 18684 18685
[495] 18686 18687 18688 18689 18690 18691 18692 18693 18694 18695 18696 18697 18698 18699 18700 18701 18702 18703 18704
[514] 18705 18706 18707 18708 18709 18710 18711 18712 18713 18714 18715 18716 18717 18718 18719 18720 18721 18722 18723
[533] 18724 18725 18726 18727 18728 18729 18730 18731 18732 18733 18734 18735 18736 18737 18738 18739 18740 18741 18742
[552] 18743 18744 18745 18746 18747 18748 18749 18750 18751 18752 18753 18754 18755 18756 18757 18758 18759 18760 18761
[571] 18762 18763 18764 18765 18766 18767 18768 18769 18770 18771 18772 18773 18774 18775 18776 18777 18778 18779 18780
[590] 18781 18782 18783 18784 18785 18786 18787 18788 18789 18790 18791 18792 18793 18794 18795 18796 18797 18798 18799
[609] 18800 18801 18802 18803 18804 18805 18806 18807 18808 18809 18810 18811 18812 18813 18814 18815 18816 18817 18818
[628] 18819 18820 18821 18822 18823 24115 24116 24117 24118 31452 31453 31454 31455 31456 31457 31458 31459 31460 31461
[647] 31462 31463 31464 31465 31466 31467 31468 31469 31470 31471 31472 31473 31474 31475 31476 31477 31478 31479 31480
[666] 31481 31482 31483 31484 31485 31486 31487 31488 31489 31490 31491 31492 31493 31494 31495 31496 39753 39754 39755
[685] 39756 39757 39758 39759 39760 39761 39762 39763 39764 39765 39766 39767 39768 39769 39770 39771 39772 39773 39774
[704] 39775 39776 39777 39778 39779 39780 39781 39782 39783 39784 39785 39786 39787 39788 39789 39790 39791 39792 39793
[723] 39794 39795 39796 39797 39798 39799 39800 39801 39802 39803 39804 39805 39806 39807 39808 39809 39810 39811 39812
[742] 39813 39814 39815 39816 39817 39818 39819 39820 39821 39822 39823 39824 39825 39826 39827 39828 39829 39830 39831
[761] 39832 39833 39834 39835 39836 39837 39838 40395 40396 40397 40398 40399 40400 40401 40402 40403 40404 41348 41349
[780] 41350 41351 41352 41353 41354 41355 41356 41357 41358 41359 41360 41361 41362 41363 41364 41365 41366 41367 41368
[799] 41369 41370 41371 41372 41373 41374 41375 41376 41377 41378 41379 41380 41381 41382 41383 41384 41385 41386 41387
[818] 41388 41389 41390 41391 41392 41393 41394 41395 41656 41657 41658 41659 41660 41661 41662 41663 41664 41665 41666
[837] 41667 41668 41669 41670 41671 41672 41673 41674 41675 41676 41677 41678 41679 41680 41681 41682 42591 42819 42820
[856] 42821 42822 42823 42824 42825 42826 42827 43172 43173 43385 43386 43387 43388 43389 43390 43391 43392 43393 43394
[875] 43395 43396 43397 43398 43399 43400 43832 43833 43834 43835 43836 43837 43838 43839 43840 43841 43842 43843 43844
[894] 43845 43846 43847 43848 43849 43850 43851 43852 43853 43854 43855 43856 43857 43858 44052 44053 44054 44055 44056
[913] 44057 44058 44059 44060 44061 44359 44360 44609 44610 44611 44612 44613 44614 44615 44616 44617 44618 44619 44620
[932] 44621 44622 44623 44624 44625 44626 44627 44628 44629 44630 44631 44632 44633 44634 44635 44636 44637 44638 44639
[951] 44640 44641 44642 44643 44644 44645 44646 44647 44648 44917 44918 44919 44920 44921 44922

$duration
   [1]    38    44    58    60    84    87    88   153   171   183   225   231   273   285   288   389   391   447   475
  [20]   539   570   601   695   707   729   854   878   961   999  1016  1035  1087  1088  1122  1125  1141  1146  1190
  [39]  1194  1212  1248  1252  1274  1324  1356  1379  1417  1443  1447  1463  1476  1486  1520  1521  1531  1532  1560
  [58]  1564  1701  1732  1796  1811  1833  1851  1852  1861  1876  1886  1900  1901  1953  2037  2052  2131  2159  2178
  [77]  2191  2193  2252  2261  2286  2295  2348  2367  2387  2388  2405  2442  2484  2508  2600  2650  2666  2704  2721
  [96]  2731  2822  2832  2846  2956  2988  2990  3010  3028  3080  3136  3141  3146  3171  3185  3191  3217  3256  3290
 [115]  3304  3315  3323  3374  3485  3501  3510  3520  3524  3535  3540  3549  3558  3561  3583  3713  3715  3830  3877
 [134]  3907  3915  3926  3948  3965  3972  3983  3984  4000  4002  4004  4016  4036  4043  4133  4200  4201  4220  4268
 [153]  4305  4311  4314  4362  4378  4383  4397  4414  4417  4428  4432  4510  4562  4564  4573  4608  4635  4648  4676
 [172]  4683  4693  4698  4699  4700  4754  4791  4844  4856  4884  4928  4930  4970  4977  4988  5035  5036  5055  5056
 [191]  5074  5138  5159  5237  5248  5249  5284  5360  5381  5431  5471  5488  5546  5547  5576  5628  5635  5636  5719
 [210]  5722  5787  5847  5857  5899  5914  5960  5974  6005  6067  6113  6139  6142  6163  6425  6449  6452  6502  6505
 [229]  6506  6507  6512  6555  6566  6567  6627  6742  6775  6779  6919  6987  7115  7122  7189  7243  7270  7304  7325
 [248]  7393  7410  7440  7461  7481  7493  7612  7675  7733  7740  7745  7749  7768  7812  7851  7852  7927  7954  8012
 [267]  8035  8140  8284  8309  8324  8336  8384  8460  8493  8523  8573  8622  8629  8642  8647  8650  8697  8707  8722
 [286]  8732  8746  8749  8761  8762  8774  8775  8833  8850  8879  8885  8898  8918  9038  9045  9050  9070  9122  9145
 [305]  9146  9158  9181  9186  9201  9206  9219  9243  9277  9283  9297  9310  9358  9382  9393  9488  9495  9508  9513
 [324]  9514  9516  9538  9579  9587  9672  9718  9775  9823  9902  9945  9948  9994 10064 10148 10242 10279 10316 10377
 [343] 10381 10417 10418 10420 10443 10468 10509 10516 10556 10558 10569 10594 10613 10615 10639 10676 10687 10693 10726
 [362] 10727 10730 10731 10796 10930 10936 10947 10949 10952 10960 10990 11039 11070 11091 11106 11112 11113 11120 11147
 [381] 11163 11170 11176 11188 11197 11217 11239 11254 11255 11259 11271 11279 11285 11291 11327 11328 11331 11336 11352
 [400] 11387 11404 11421 11424 11449 11471 11508 11520 11549 11562 11566 11577 11613 11617 11623 11633 11636 11640 11712
 [419] 11740 11764 11782 11820 11832 11834 11839 11847 11856 11857 11862 11866 11871 11881 11885 11886 11888 11891 11892
 [438] 11893 11895 11896 11898 11900 11901 11904 11906 11913 11915 11919 11920 11927 11928 11929 11932 11934 11935 11937
 [457] 11939 11941 11942 11948 11949 11952 11953 11955 11956 11959 11960 11961 11962 11963 11964 11965 11968 11969 11977
 [476] 11978 11980 11983 11984 11987 11991 11992 11998 11999 12002 12003 12004 12007 12011 12013 12015 12016 12017 12023
 [495] 12024 12025 12026 12028 12030 12032 12037 12040 12043 12046 12048 12051 12053 12054 12059 12063 12068 12070 12071
 [514] 12075 12076 12077 12080 12081 12082 12085 12086 12087 12090 12095 12098 12099 12100 12106 12108 12124 12136 12139
 [533] 12142 12146 12147 12152 12154 12157 12158 12159 12160 12162 12163 12164 12165 12167 12173 12175 12179 12181 12185
 [552] 12186 12190 12191 12192 12194 12200 12203 12205 12206 12207 12208 12209 12211 12212 12214 12215 12222 12223 12224
 [571] 12226 12227 12229 12230 12234 12238 12241 12248 12348 12486 12492 12589 12651 12663 12691 12704 12736 12760 12833
 [590] 12864 12873 12891 12942 12963 13019 13022 13115 13156 13175 13228 13269 13303 13329 13358 13367 13385 13445 13459
 [609] 13467 13468 13524 13532 13624 13660 13664 13665 13667 13676 13687 13702 13732 13733 13780 13809 13914 13937 13945
 [628] 13984 13987 14004 14091 14102 14151 14152 14156 14161 14163 14222 14223 14224 14298 14320 14385 14399 14424 14448
 [647] 14451 14478 14563 14646 14650 14685 14729 14749 14754 14798 14840 14872 14883 14903 14922 14933 14939 14962 14965
 [666] 14966 14973 14980 15018 15043 15059 15093 15094 15105 15109 15150 15163 15170 15176 15181 15183 15194 15199 15213
 [685] 15221 15226 15239 15264 15270 15290 15319 15328 15384 15463 15465 15480 15513 15530 15566 15598 15687 15704 15721
 [704] 15727 15756 15757 15776 15818 15824 15839 15848 15859 15861 15933 15948 15981 16025 16043 16058 16068 16105 16146
 [723] 16180 16183 16188 16204 16211 16296 16306 16391 16416 16447 16451 16455 16471 16498 16500 16516 16555 16599 16637
 [742] 16638 16641 16661 16693 16733 16743 16745 16759 16797 16817 16843 16856 16864 16865 16882 16901 16914 16927 16959
 [761] 16961 16972 16976 17032 17061 17062 17088 17101 17105 17131 17280 17338 17356 17363 17369 17429 17474 17523 17558
 [780] 17560 17643 17697 17710 17795 17796 17856 17871 17874 17881 17955 17972 18006 18043 18047 18052 18069 18073 18092
 [799] 18111 18189 18196 18255 18256 18284 18286 18289 18293 18294 18295 18296 18320 18321 18329 18338 18342 18356 18395
 [818] 18397 18415 18436 18491 18541 18585 18593 18600 18614 18618 18619 18626 18633 18635 18638 18639 18642 18644 18653
 [837] 18659 18661 18662 18669 18670 18680 18682 18695 18699 18703 18706 18707 18709 18713 18719 18726 18728 18731 18737
 [856] 18739 18740 18745 18748 18750 18751 18757 18760 18765 18766 18768 18769 18772 18776 18779 18781 18787 18788 18794
 [875] 18805 18806 18807 18808 18810 18812 18818 18821 18895 18920 18957 18994 19038 19045 19061 19063 19095 19115 19118
 [894] 19135 19151 19179 19189 19202 19318 19328 19370 19378 19444 19445 19446 19510 19521 19614 19640 19673 19688 19695
 [913] 19765 19824 19955 19995 20024 20043 20067 20070 20228 20253 20289 20297 20352 20369 20378 20387 20393 20400 20439
 [932] 20455 20560 20568 20570 20577 20623 20628 20632 20634 20639 20646 20670 20692 20726 20806 20856 20860 20879 20891
 [951] 21014 21030 21114 21118 21126 21147 21204 21206 21378 21394 21403 21410 21415 21416 21422 21549 21635 21648 21693
 [970] 21705 21707 21716 21788 21832 21945 21963 21971 22068 22117 22152 22199 22216 22223 22279 22336 22357 22383 22405
 [989] 22421 22487 22532 22534 22618 22743 22773 22783 22788 22789 22790 22801
 [ reached getOption("max.print") -- omitted 1244 entries ]

$campaign
  [1]  2306  2627  2687  2707  2968  3045  3080  3119  3150  3332  3356  3476  3484  3530  3578  3605  3618  3633  3640
 [20]  3646  3665  3674  3814  3878  3887  3915  3917  3926  3937  3950  3958  3970  3995  4016  4021  4046  4140  4195
 [39]  4209  4276  4300  4301  4329  4331  4335  4339  4362  4391  4401  4414  4442  4561  4638  4657  4696  4699  4730
 [58]  4751  4791  4928  4965  4999  5032  5074  5103  5108  5139  5141  5181  5212  5413  5440  5458  5460  5508  5514
 [77]  5566  5569  5581  5616  5632  5687  5722  5766  5839  5945  6052  6067  6079  6265  6398  6512  6545  6567  6698
 [96]  6699  6792  6936  6960  7031  7044  7342  7394  7426  7440  7444  7471  7494  7499  7500  7507  7527  7583  7657
[115]  7678  7733  7832  7851  7854  7877  7899  7911  7917  7923  7943  7948  8040  8045  8153  8239  8281  8294  8301
[134]  8304  8324  8332  8343  8345  8432  8433  8454  8513  8514  8525  8545  8548  8555  8575  8616  8622  8642  8653
[153]  8669  8686  8687  8698  8700  8708  8709  8745  8918  8933  8935  9149  9219  9227  9237  9252  9273  9283  9289
[172]  9293  9295  9297  9303  9331  9360  9405  9429  9431  9488  9561  9567  9639  9678  9688  9699  9736  9858  9957
[191]  9965  9966 10011 10014 10042 10139 10189 10226 10239 10247 10250 10256 10270 10277 10369 10422 10467 10480 10491
[210] 10521 10540 10598 10617 10619 10675 10676 10687 10693 10698 10699 10726 10728 10730 10735 10740 10752 10763 10838
[229] 10903 10961 11016 11038 11064 11235 11250 11261 11275 11279 11282 11292 11297 11302 11313 11327 11328 11355 11356
[248] 11395 11466 11533 11562 11617 11624 11633 11645 11668 11674 11690 11732 11774 11775 11783 11792 11829 11857 11868
[267] 11881 11885 11886 11892 11900 11904 11905 11911 11915 11918 11919 11920 11922 11926 11927 11934 11935 11940 11947
[286] 11949 11952 11953 11961 11962 11963 11969 11974 11980 11981 11999 12003 12015 12017 12018 12033 12040 12043 12044
[305] 12046 12063 12073 12077 12080 12087 12096 12113 12117 12126 12156 12158 12167 12171 12179 12186 12190 12197 12205
[324] 12206 12207 12211 12214 12215 12225 12226 12230 12231 12241 12691 12769 12803 12851 12935 12937 12955 12963 13001
[343] 13004 13018 13019 13047 13302 13312 13490 13653 13661 13664 13676 13700 13930 14001 14002 14008 14009 14290 14304
[362] 14341 14454 14503 14510 14613 14678 14691 14728 14755 14994 15171 15244 15479 15529 15560 15596 15710 15853 15870
[381] 15887 15891 15904 15908 15993 16028 16038 16066 16072 16130 16149 16165 16166 16211 16214 16384 16451 16478 16482
[400] 16519 16521 16534 16541 16554 16638 16699 16727 16773 16831 16840 16848 16866 16923 16952 17029 17038 17059 17073
[419] 17076 17105 17126 17129 17136 17141 17150 17156 17159 17165 17186 17187 17267 17276 17326 17331 17353 17355 17386
[438] 17406 17418 17436 17444 17446 17447 17451 17459 17464 17471 17474 17477 17490 17493 17496 17502 17503 17508 17509
[457] 17514 17521 17523 17533 17575 17620 17667 17688 17703 17711 17728 17729 17740 17745 17763 17774 17784 17798 17807
[476] 17808 17817 17833 17841 17843 17844 17851 17855 17857 17870 17874 17875 17881 17882 17954 17955 17963 17972 18040
[495] 18054 18071 18074 18101 18102 18113 18124 18168 18174 18197 18210 18211 18215 18223 18233 18238 18247 18251 18253
[514] 18255 18257 18274 18276 18277 18285 18293 18294 18295 18296 18320 18328 18338 18342 18352 18368 18376 18394 18395
[533] 18415 18431 18436 18448 18461 18463 18477 18488 18497 18514 18520 18532 18542 18547 18549 18556 18571 18579 18593
[552] 18600 18601 18603 18604 18605 18608 18609 18613 18614 18616 18617 18619 18620 18622 18623 18624 18632 18633 18635
[571] 18636 18638 18639 18641 18646 18653 18659 18661 18662 18664 18668 18669 18671 18676 18677 18679 18680 18687 18694
[590] 18697 18698 18699 18704 18705 18710 18712 18714 18723 18725 18729 18730 18739 18740 18741 18745 18746 18748 18750
[609] 18751 18757 18758 18759 18761 18764 18765 18775 18776 18778 18779 18783 18788 18789 18795 18796 18799 18800 18803
[628] 18817 18818 18821 19289 19742 20238 20250 20287 20577 20621 20856 20937 20938 21050 21115 21244 21248 21249 21255
[647] 21266 21292 21301 21315 21369 21371 21410 21412 21433 21439 21440 21449 21452 21482 21493 21501 21507 21555 21613
[666] 21618 21620 21648 21691 21693 21702 21716 21751 21753 21758 21801 21916 21925 21936 21963 21989 22026 22041 22057
[685] 22075 22076 22199 22229 22249 22273 22307 22312 22383 22396 22418 22423 22449 22479 22483 22493 22500 22518 22531
[704] 22532 22577 22591 22612 22660 22663 22679 22686 22694 22697 22698 22729 22735 22773 22778 22783 22789 22790 22801
[723] 22827 22854 22879 22887 22895 22912 22917 22918 22929 22932 22938 22949 22951 22980 22982 22989 22993 22997 22999
[742] 23003 23011 23025 23026 23034 23036 23063 23068 23072 23089 23093 23096 23098 23099 23105 23109 23119 23137 23143
[761] 23148 23158 23159 23160 23166 23167 23168 23170 23174 23180 23183 23185 23193 23201 23204 23217 23222 23223 23238
[780] 23240 23261 23262 23266 23271 23276 23284 23285 23286 23290 23298 23299 23300 23313 23315 23318 23319 23324 23334
[799] 23344 23346 23349 23350 23351 23353 23354 23361 23368 23369 23372 23386 23391 23406 23408 23411 23413 23435 23438
[818] 23439 23442 23445 23457 23458 23461 23462 23466 23473 23475 23479 23481 23483 23487 23490 23503 23504 23507 23508
[837] 23509 23511 23524 23533 23538 23548 23560 23563 23568 23571 23572 23573 23575 23579 23581 23582 23583 23585 23588
[856] 23589 23590 23596 23597 23600 23601 23603 23604 23606 23608 23612 23613 23616 23617 23622 23623 23624 23625 23626
[875] 23628 23629 23631 23639 23640 23641 23643 23647 23649 23650 23651 23653 23655 23656 23660 23661 23663 23674 23677
[894] 23679 23681 23682 23687 23694 23697 23702 23705 23708 23709 23711 23712 23719 23723 23725 23726 23727 23733 23742
[913] 23745 23748 23751 23752 23753 23756 23762 23764 23765 23766 23769 23771 23777 23778 23793 23796 23798 23800 23804
[932] 23822 23881 23937 23945 23946 23948 23956 23957 23958 23962 23966 23967 23968 23971 23977 23986 23987 24006 24025
[951] 30479 30736 30751 30792 30801 30837 30839 30909 30917 30918 31040 31077 31137 31225 31243 31264 31348 31362 31413
[970] 31451 31582 31936 32106 33115 33488 33700 33779 33798 33817 33859 35583 36051 36492 36601 37078 37568 37793 38581
[989] 38768 39247 40337 41381 42316 44595 44887

$pdays
   [1] 34192 34275 34278 34330 34334 34408 34410 34416 34429 34437 34470 34472 34481 34488 34499 34516 34523 34551 34552
  [20] 34554 34556 34561 34588 34628 34660 34679 34713 34729 34735 34750 34752 34758 34795 34797 34798 34807 34809 34811
  [39] 34821 34822 34826 34839 34842 34857 34872 34874 34876 34877 34887 34913 34921 34924 34925 34934 34943 34946 34957
  [58] 34980 34988 34989 35000 35008 35018 35019 35042 35043 35046 35060 35063 35067 35068 35071 35077 35081 35088 35090
  [77] 35099 35100 35151 35165 35170 35172 35194 35203 35205 35212 35216 35238 35243 35274 35276 35281 35293 35299 35303
  [96] 35305 35316 35317 35321 35326 35332 35348 35358 35370 35378 35385 35387 35401 35410 35412 35420 35433 35436 35442
 [115] 35446 35447 35452 35453 35454 35457 35470 35473 35490 35521 35534 35536 35549 35559 35561 35565 35573 35588 35614
 [134] 35619 35627 35630 35633 35639 35647 35649 35654 35655 35662 35664 35671 35672 35677 35694 35696 35706 35712 35717
 [153] 35746 35751 35768 35773 35778 35797 35800 35810 35834 35837 35840 35841 35843 35867 35873 35889 35896 35897 35905
 [172] 35906 35913 35918 35927 35933 35938 35939 35949 35950 35957 35958 35964 35968 35975 35979 35984 35988 35989 36007
 [191] 36008 36030 36032 36035 36041 36050 36073 36084 36085 36088 36092 36097 36110 36114 36118 36120 36134 36142 36154
 [210] 36160 36163 36172 36175 36176 36180 36182 36190 36201 36204 36208 36213 36216 36220 36236 36254 36255 36259 36264
 [229] 36269 36274 36275 36281 36291 36292 36303 36319 36323 36324 36329 36338 36353 36365 36367 36375 36393 36401 36407
 [248] 36412 36413 36431 36441 36461 36462 36467 36471 36473 36478 36481 36487 36491 36500 36503 36504 36511 36535 36540
 [267] 36543 36548 36556 36561 36567 36582 36585 36590 36591 36603 36615 36619 36622 36628 36632 36647 36671 36672 36675
 [286] 36679 36680 36699 36709 36714 36719 36727 36729 36734 36738 36740 36745 36746 36748 36751 36754 36785 36787 36790
 [305] 36794 36798 36799 36804 36808 36810 36823 36832 36833 36837 36849 36855 36857 36869 36871 36876 36885 36912 36914
 [324] 36915 36924 36930 36944 36955 36956 36959 36962 36981 36987 36991 36994 36997 36999 37000 37015 37016 37017 37020
 [343] 37025 37028 37029 37033 37043 37045 37046 37051 37053 37057 37058 37064 37068 37074 37076 37103 37112 37118 37125
 [362] 37126 37129 37132 37144 37145 37147 37152 37161 37164 37171 37173 37174 37180 37181 37184 37197 37201 37208 37213
 [381] 37214 37219 37222 37223 37224 37231 37239 37248 37254 37262 37267 37272 37274 37298 37300 37321 37323 37327 37328
 [400] 37332 37339 37341 37347 37348 37356 37368 37376 37380 37381 37386 37388 37393 37397 37401 37404 37408 37419 37438
 [419] 37443 37453 37457 37460 37464 37468 37472 37473 37475 37477 37496 37501 37502 37504 37512 37514 37530 37531 37541
 [438] 37558 37561 37563 37564 37565 37569 37572 37597 37598 37618 37620 37633 37643 37657 37664 37669 37673 37699 37700
 [457] 37706 37710 37712 37713 37717 37726 37727 37728 37732 37738 37740 37741 37742 37743 37745 37746 37749 37757 37761
 [476] 37765 37766 37774 37780 37786 37792 37803 37804 37809 37812 37815 37817 37829 37833 37836 37838 37844 37845 37846
 [495] 37849 37854 37872 37873 37884 37908 37911 37917 37928 37931 37942 37947 37955 37971 37974 37978 37987 37988 37993
 [514] 37995 38001 38002 38010 38013 38014 38016 38018 38023 38025 38035 38046 38050 38052 38057 38068 38079 38081 38083
 [533] 38086 38087 38088 38091 38093 38094 38095 38098 38101 38105 38107 38109 38114 38116 38123 38127 38137 38147 38153
 [552] 38155 38156 38160 38162 38165 38167 38175 38176 38183 38187 38188 38196 38198 38199 38203 38215 38220 38235 38241
 [571] 38246 38248 38249 38251 38252 38254 38261 38266 38269 38277 38285 38288 38294 38304 38311 38318 38319 38322 38323
 [590] 38334 38336 38337 38351 38360 38367 38372 38393 38394 38397 38399 38401 38403 38410 38411 38420 38424 38425 38442
 [609] 38454 38462 38472 38478 38484 38486 38491 38494 38499 38503 38516 38520 38524 38532 38537 38551 38553 38557 38558
 [628] 38564 38569 38570 38574 38590 38591 38593 38597 38605 38612 38613 38614 38615 38618 38631 38633 38635 38636 38637
 [647] 38643 38644 38645 38654 38658 38661 38668 38674 38675 38676 38677 38680 38684 38689 38691 38692 38696 38704 38719
 [666] 38727 38730 38731 38740 38747 38748 38750 38761 38771 38772 38773 38782 38785 38789 38790 38797 38803 38804 38822
 [685] 38826 38830 38838 38839 38847 38852 38853 38857 38861 38862 38864 38866 38871 38874 38876 38878 38880 38887 38895
 [704] 38914 38927 38935 38938 38940 38965 38969 38970 38977 38981 38990 38991 38993 38996 39020 39022 39024 39032 39051
 [723] 39066 39072 39075 39090 39092 39095 39096 39108 39111 39119 39124 39126 39128 39131 39133 39137 39160 39165 39169
 [742] 39174 39192 39206 39208 39217 39220 39221 39224 39225 39236 39237 39245 39248 39250 39252 39256 39257 39263 39269
 [761] 39280 39281 39282 39285 39291 39294 39303 39317 39321 39329 39331 39342 39347 39352 39419 39483 39529 39579 39855
 [780] 39914 40009 40031 40083 40234 40285 40344 40399 40407 40418 40426 40435 40458 40484 40491 40496 40507 40524 40530
 [799] 40591 40592 40593 40653 40691 40695 40712 40752 40753 40761 40765 40812 40830 40836 40842 40848 40863 40880 40890
 [818] 40903 40963 40970 41003 41021 41053 41060 41086 41096 41114 41116 41134 41148 41150 41218 41235 41264 41281 41282
 [837] 41298 41308 41315 41320 41361 41378 41396 41409 41410 41603 41695 41710 41798 41963 41993 42063 42162 42171 42229
 [856] 42248 42424 42448 42467 42717 42742 42756 42777 42784 42802 42852 42857 42902 42942 42953 42958 43024 43035 43065
 [875] 43067 43070 43071 43074 43116 43148 43149 43172 43190 43200 43227 43237 43265 43270 43305 43350 43369 43396 43397
 [894] 43401 43405 43415 43417 43421 43423 43458 43465 43481 43487 43497 43498 43506 43508 43531 43537 43552 43554 43558
 [913] 43562 43587 43591 43594 43668 43676 43682 43688 43728 43749 43750 43754 43766 43770 43778 43779 43781 43789 43791
 [932] 43794 43803 43809 43812 43822 43838 43849 43855 43877 43880 43884 43885 43888 43908 43910 43916 43918 43921 43926
 [951] 43928 43933 43935 43961 43965 43973 43978 43979 43984 43990 43992 44008 44021 44032 44037 44039 44042 44044 44053
 [970] 44054 44062 44063 44077 44080 44088 44090 44094 44095 44098 44100 44103 44110 44112 44117 44119 44121 44134 44143
 [989] 44152 44153 44161 44180 44195 44196 44202 44226 44234 44240 44244 44250
 [ reached getOption("max.print") -- omitted 131 entries ]

$previous
   [1] 24137 24296 24300 24332 24507 24557 24582 24597 24610 24625 24627 24644 24650 24659 24697 24724 24796 24844 24868
  [20] 24928 24937 24948 24962 25086 25126 25134 25229 25261 25279 25283 25309 25345 25351 25354 25368 25405 25421 25449
  [39] 25557 25621 25677 25679 25701 25729 25753 25778 25899 26016 26051 26059 26062 26097 26331 26399 26401 26411 26420
  [58] 26428 26451 26489 26625 26658 26669 26686 26697 26825 26827 26834 26837 26845 26863 26907 26908 26922 26940 26946
  [77] 26973 27014 27031 27108 27178 27259 27407 27440 27449 27450 27494 27593 27625 27627 27632 27640 27712 27793 27856
  [96] 27871 27895 27909 27975 27983 27986 28016 28030 28032 28064 28137 28141 28167 28185 28186 28187 28192 28232 28250
 [115] 28261 28282 28352 28385 28386 28387 28392 28403 28416 28421 28498 28499 28509 28528 28534 28545 28585 28590 28592
 [134] 28607 28618 28623 28631 28652 28664 28702 28774 28840 28849 28880 28887 28894 29051 29160 29183 29280 29301 29304
 [153] 29373 29389 29447 29451 29466 29482 29557 29568 29590 29623 29636 29640 29668 29672 29675 29678 29679 29694 29716
 [172] 29741 29767 29819 29834 29869 29899 29910 29959 30031 30034 30079 30087 30101 30110 30111 30116 30129 30138 30159
 [191] 30160 30166 30171 30181 30190 30209 30242 30257 30260 30325 30337 30349 30493 30510 30526 30568 30585 30586 30594
 [210] 30598 30600 30637 30722 30747 30770 30789 30821 30836 30885 30889 30916 30925 30932 30936 30943 30958 30986 31144
 [229] 31170 31199 31205 31282 31301 31430 31530 31549 31584 31590 31602 31626 31627 31641 31647 31654 31669 31694 31728
 [248] 31729 31743 31774 31785 31828 31840 31878 31900 31917 31933 31938 31955 31967 32138 32180 32275 32291 32312 32318
 [267] 32328 32367 32376 32418 32466 32506 32511 32609 32611 32706 32762 32769 32896 32915 32930 32931 32937 32960 32966
 [286] 32967 32979 32993 32994 33009 33035 33051 33074 33077 33156 33214 33255 33313 33316 33330 33342 33348 33351 33389
 [305] 33405 33420 33455 33481 33487 33512 33513 33527 33539 33545 33600 33604 33619 33627 33628 33632 33647 33674 33686
 [324] 33740 33777 33909 33924 33977 34074 34085 34088 34310 34318 34330 34332 34370 34374 34376 34377 34385 34420 34431
 [343] 34432 34435 34437 34440 34476 34493 34559 34566 34583 34601 34628 34631 34671 34678 34692 34710 34721 34727 34738
 [362] 34749 34764 34878 34912 34920 34945 34961 34982 34985 35002 35097 35145 35184 35191 35210 35251 35316 35358 35379
 [381] 35445 35492 35536 35567 35569 35617 35620 35623 35633 35657 35674 35718 35727 35733 35798 35839 35879 35888 35897
 [400] 35911 35921 35938 35939 35950 36016 36028 36038 36041 36062 36064 36069 36094 36121 36135 36150 36195 36205 36207
 [419] 36216 36245 36283 36298 36331 36336 36346 36353 36364 36365 36373 36384 36414 36446 36450 36493 36502 36503 36506
 [438] 36518 36531 36593 36597 36603 36607 36649 36658 36659 36713 36725 36788 36802 36819 36833 36835 36836 36852 36891
 [457] 36908 36915 36916 36920 36940 36945 36949 36951 36953 36972 36984 36995 36997 37004 37015 37045 37049 37067 37090
 [476] 37092 37101 37131 37143 37152 37179 37181 37190 37210 37218 37234 37237 37249 37286 37288 37320 37362 37366 37420
 [495] 37424 37436 37449 37481 37494 37495 37496 37501 37530 37558 37559 37564 37565 37566 37568 37586 37595 37611 37615
 [514] 37643 37647 37705 37745 37792 37803 37824 37835 37844 37896 37900 37932 37933 37944 37959 37979 37988 37994 37997
 [533] 38034 38035 38036 38044 38057 38064 38069 38070 38077 38079 38101 38107 38108 38123 38125 38137 38158 38163 38173
 [552] 38189 38195 38228 38237 38256 38324 38327 38357 38369 38371 38439 38512 38556 38574 38576 38584 38605 38612 38632
 [571] 38646 38662 38686 38703 38711 38730 38741 38750 38771 38773 38777 38783 38798 38803 38804 38810 38814 38816 38848
 [590] 38852 38856 38895 38899 38917 38965 38980 38991 39008 39075 39139 39142 39158 39164 39165 39172 39179 39193 39226
 [609] 39264 39273 39288 39294 39295 39321 39341 39361 39389 39391 39418 39503 39515 39528 39548 39567 39583 39650 39776
 [628] 39827 39877 39883 39906 39921 39926 39949 39993 39999 40026 40056 40073 40107 40109 40129 40224 40262 40331 40417
 [647] 40580 40605 40619 40644 40657 40671 40731 40735 40768 40805 40828 40833 40890 40894 40951 40953 41026 41038 41043
 [666] 41061 41092 41190 41225 41236 41257 41264 41345 41348 41360 41369 41381 41405 41409 41439 41444 41451 41473 41624
 [685] 41640 41673 41698 41719 41761 41775 41801 41819 41890 42003 42073 42109 42130 42137 42164 42175 42179 42190 42191
 [704] 42200 42222 42230 42231 42250 42268 42311 42337 42342 42351 42353 42379 42402 42415 42423 42452 42463 42498 42499
 [723] 42537 42538 42543 42567 42570 42586 42612 42619 42659 42661 42668 42687 42698 42747 42756 42803 42809 42819 42825
 [742] 42848 42867 42878 42880 42881 42883 42888 42903 42921 42932 42953 42967 42971 42974 42979 42994 43000 43008 43034
 [761] 43039 43043 43053 43070 43074 43077 43098 43108 43110 43111 43112 43123 43137 43140 43152 43158 43177 43186 43213
 [780] 43225 43229 43233 43237 43242 43255 43262 43266 43274 43286 43308 43310 43332 43334 43340 43342 43343 43344 43345
 [799] 43357 43362 43410 43424 43439 43445 43463 43466 43474 43498 43512 43535 43557 43571 43596 43599 43620 43622 43630
 [818] 43646 43647 43648 43659 43662 43664 43674 43678 43687 43689 43700 43721 43722 43730 43734 43744 43751 43760 43762
 [837] 43764 43765 43769 43773 43776 43777 43778 43795 43798 43808 43824 43826 43844 43848 43870 43880 43885 43890 43892
 [856] 43894 43899 43906 43907 43913 43917 43918 43923 43926 43940 43941 43950 43956 43972 43980 43989 44003 44005 44007
 [875] 44019 44025 44028 44030 44037 44044 44052 44061 44077 44080 44085 44090 44093 44097 44102 44115 44121 44130 44141
 [894] 44144 44148 44149 44169 44185 44208 44219 44230 44237 44238 44247 44252 44262 44263 44269 44273 44313 44326 44337
 [913] 44338 44343 44346 44350 44353 44361 44368 44379 44382 44383 44389 44390 44402 44404 44418 44421 44422 44429 44438
 [932] 44439 44440 44441 44445 44451 44455 44470 44472 44476 44483 44485 44488 44492 44498 44500 44517 44518 44520 44522
 [951] 44523 44526 44529 44530 44537 44541 44555 44556 44558 44562 44569 44572 44573 44595 44600 44630 44634 44647 44657
 [970] 44660 44672 44677 44684 44689 44690 44697 44704 44705 44711 44739 44752 44780 44781 44782 44783 44794 44801 44815
 [989] 44823 44827 44829 44833 44834 44844 44849 44852 44853 44856 44867 44871
 [ reached getOption("max.print") -- omitted 64 entries ]

Podemos observar como los valores atípicos de las edades están edades menores a 25 años y edades de hasta 95 años. En el caso de balance podemos ver como los valores atipicos son valores negativos desde -8000 hasta 10200 Visualización de valores atípicos

boxplot(data_numeric, main="Boxplot de Valores Atípicos", col="lightblue", outline=TRUE)

Conclusiones y Recomendaciones

Conclusiones:

Al revisar nuestra data, podemos observar que los datos tienen ciertas características. Por ejemplo, si vemos el histograma de la edad podemos observar como los clientes del banco se concentran en las edades de 20 a aproximadamente 60 años. Por otro lado, podemos ver que por trabajo los clientes que más tienen cuentas son los técnicos, gerentes y empresarios. Otro dato interesante es que la mayoría de los clientes están casados y que la mayoría de los clientes del banco no presentan mora.

Por otro lado, en nuestro data_NA_1 tenemos 12,5% de los datos faltantes y en datos_NA_2 tenemos un 20% de datos faltantes. Sin embargo podemos observar en nuestra gráfica de correlación como la segunda data tiene una correlación más alta. Por lo que podemos deducir que en datos_NA_1 los datos más altos formaron parte del 12,5% faltante y en datos_NA_2 los valores más altos no fueron eliminados en el 20% faltante.

Al realizar la imputación de las variables, podemos observar que la imputación cero e imputación de la media son los peores metodos de imputación, ya que la distribución de estas son las más distinta a la distribución original. Por otro lado, podemos deducir que no hay diferencia de eliminar 12,5% de data a eliminar 20% ya que se observa que en ambos casos la distribución de los datos se mantienen similar.

Por último, el rango tomado en cuenta para identificar nuetsros valores atípicos fue de un límite inferior de 2,5% y limite superior de 97.5%. Para así solo detectar el 5% de data que más contraste tiene en comparación con la otra.

En cuanto a valores atípicos encontrados no eliminaría los valores atípicos de las edades, ya que considero que tiene sentido que en la data la edad sea desde los 18, ya que tiene sentido abrirse una cuenta de banco a esa edad. Otro valor que tampoco eliminaría sería el de balance ya que las personas con mayores ingresos afectarán el promedio de balance en la cuenta.

Recomendaciones: Días es una variable que se puede ignorar, considero que no es importante el último día del mes en el que se contacto al cliente al igual que la varable la duración ya que no es importante la duración del último contacto, en segundos para el estudio.