## Warning: package 'lares' was built under R version 4.1.2
## 
## -- Column specification --------------------------------------------------------
## 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(),
##   score = col_double()
## )
## The following object is masked from package:MASS:
## 
##     housing
##  [1] "age"       "job"       "marital"   "education" "default"   "balance"  
##  [7] "housing"   "loan"      "contact"   "day"       "month"     "duration" 
## [13] "campaign"  "pdays"     "previous"  "poutcome"  "y"         "score"
## # A tibble: 2 x 2
##   y         n
##   <chr> <int>
## 1 no    39922
## 2 yes    5289
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels
## 
## Call:
## glm(formula = score ~ duration + balance + job + previous + contact + 
##     campaign + default + month + loan + education + marital + 
##     day + poutcome + housing, family = binomial, data = test_data)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -4.1456  -0.3772  -0.2529  -0.1491   3.6093  
## 
## Coefficients:
##                      Estimate Std. Error z value Pr(>|z|)    
## (Intercept)        -2.325e+00  2.458e-01  -9.462  < 2e-16 ***
## duration            4.058e-03  1.169e-04  34.712  < 2e-16 ***
## balance             4.401e-06  9.640e-06   0.457 0.648021    
## jobblue-collar     -4.298e-01  1.330e-01  -3.232 0.001229 ** 
## jobentrepreneur    -2.992e-01  2.188e-01  -1.367 0.171536    
## jobhousemaid       -8.142e-01  2.708e-01  -3.007 0.002640 ** 
## jobmanagement      -3.774e-01  1.344e-01  -2.808 0.004984 ** 
## jobretired          1.163e-01  1.594e-01   0.730 0.465650    
## jobself-employed   -4.900e-01  2.092e-01  -2.342 0.019175 *  
## jobservices        -3.384e-01  1.508e-01  -2.243 0.024887 *  
## jobstudent          1.077e-01  1.984e-01   0.543 0.587207    
## jobtechnician      -3.757e-01  1.257e-01  -2.988 0.002808 ** 
## jobunemployed      -3.636e-01  2.023e-01  -1.797 0.072320 .  
## jobunknown         -6.572e-01  4.276e-01  -1.537 0.124313    
## previous            3.081e-02  2.094e-02   1.471 0.141234    
## contacttelephone   -1.974e-01  1.388e-01  -1.423 0.154874    
## contactunknown     -1.718e+00  1.317e-01 -13.038  < 2e-16 ***
## campaign           -1.174e-01  1.970e-02  -5.961 2.51e-09 ***
## defaultyes          2.863e-02  3.066e-01   0.093 0.925613    
## monthaug           -8.114e-01  1.470e-01  -5.519 3.41e-08 ***
## monthdec            5.569e-01  3.394e-01   1.641 0.100789    
## monthfeb           -1.964e-01  1.666e-01  -1.179 0.238569    
## monthjan           -1.186e+00  2.133e-01  -5.560 2.69e-08 ***
## monthjul           -7.969e-01  1.426e-01  -5.591 2.26e-08 ***
## monthjun            5.405e-01  1.721e-01   3.141 0.001683 ** 
## monthmar            1.646e+00  2.189e-01   7.519 5.50e-14 ***
## monthmay           -2.663e-01  1.330e-01  -2.002 0.045319 *  
## monthnov           -9.559e-01  1.571e-01  -6.084 1.17e-09 ***
## monthoct            6.262e-01  2.023e-01   3.095 0.001967 ** 
## monthsep            9.713e-01  2.236e-01   4.343 1.40e-05 ***
## loanyes            -3.955e-01  1.084e-01  -3.649 0.000263 ***
## educationsecondary  1.338e-01  1.190e-01   1.125 0.260646    
## educationtertiary   4.544e-01  1.378e-01   3.299 0.000972 ***
## educationunknown    3.085e-01  1.898e-01   1.625 0.104132    
## maritalmarried     -1.973e-01  1.067e-01  -1.849 0.064507 .  
## maritalsingle       6.777e-02  1.148e-01   0.590 0.554960    
## day                 9.465e-03  4.582e-03   2.066 0.038854 *  
## poutcomeother       2.493e-01  1.697e-01   1.469 0.141792    
## poutcomesuccess     2.254e+00  1.493e-01  15.095  < 2e-16 ***
## poutcomeunknown     7.098e-02  1.221e-01   0.581 0.561046    
## housingyes         -8.055e-01  8.026e-02 -10.035  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 9610.3  on 13474  degrees of freedom
## Residual deviance: 6401.3  on 13434  degrees of freedom
## AIC: 6483.3
## 
## Number of Fisher Scoring iterations: 6
##  [1] "duration"           "balance"            "jobblue-collar"    
##  [4] "jobentrepreneur"    "jobhousemaid"       "jobretired"        
##  [7] "jobstudent"         "contactunknown"     "campaign"          
## [10] "monthaug"           "monthdec"           "monthjan"          
## [13] "monthjul"           "monthjun"           "monthmar"          
## [16] "monthmay"           "monthnov"           "monthoct"          
## [19] "monthsep"           "loanyes"            "educationsecondary"
## [22] "educationtertiary"  "maritalmarried"     "day"               
## [25] "poutcomesuccess"    "housingyes"
##  [1] "duration"          "jobblue-collar"    "jobhousemaid"     
##  [4] "jobmanagement"     "jobself-employed"  "jobservices"      
##  [7] "jobtechnician"     "contactunknown"    "campaign"         
## [10] "monthaug"          "monthjan"          "monthjul"         
## [13] "monthjun"          "monthmar"          "monthmay"         
## [16] "monthnov"          "monthoct"          "monthsep"         
## [19] "loanyes"           "educationtertiary" "day"              
## [22] "poutcomesuccess"   "housingyes"
##               GVIF Df GVIF^(1/(2*Df))
## duration  1.118680  1        1.057677
## balance   1.040016  1        1.019812
## job       3.067834 11        1.052274
## previous  1.758639  1        1.326137
## contact   1.810297  2        1.159945
## campaign  1.103962  1        1.050696
## default   1.014466  1        1.007207
## month     3.566735 11        1.059506
## loan      1.060489  1        1.029801
## education 2.234100  3        1.143362
## marital   1.186907  2        1.043768
## day       1.357390  1        1.165071
## poutcome  1.985265  3        1.121080
## housing   1.416180  1        1.190033
##      no  yes
## 0 11631 1039
## 1   296  509
##      no  yes
## 0 11631 1039
## 1   296  509
##      no  yes
## 0 11631 1039
## 1   296  509
## Warning in .font_global(font, quiet = FALSE): Font 'Arial Narrow' is not
## installed, has other name, or can't be found

## [1] 0.9041126
## [1] 0.9208951
## [1] 0.6609589

## ROC Curve Plot rendered with sampled data...

## No trace type specified:
##   Based on info supplied, a 'scatter' trace seems appropriate.
##   Read more about this trace type -> https://plotly.com/r/reference/#scatter
## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode
## Warning: `line.width` does not currently support multiple values.