Cuantificarea ajustării regresiei logistice

Introducere în Regresia în R

Richie Cotton

Data Evangelist at DataCamp

Cele patru rezultate

fals real adevărat real
prezis fals corect fals negativ
prezis adevărat fals pozitiv corect
Introducere în Regresia în R

Matricea de confuzie: numărul de rezultate

mdl_recency <- glm(has_churned ~ time_since_last_purchase, data = churn, family = "binomial")
actual_response <- churn$has_churned
predicted_response <- round(fitted(mdl_recency))
outcomes <- table(predicted_response, actual_response)
                  actual_response
predicted_response   0   1
                 0 141 111
                 1  59  89
Introducere în Regresia în R

Vizualizarea matricei de confuzie: grafic mozaic

library(ggplot2)
library(yardstick)
confusion <- conf_mat(outcomes)
                  actual_response
predicted_response   0   1
                 0 141 111
                 1  59  89
autoplot(confusion)

Grafic mozaic al rezultatelor modelului churn vs. recență. Există câte 200 de observații pentru fiecare clasă reală, deci fiecare coloană are aceeași lățime.

Introducere în Regresia în R

Metrici de performanță

summary(confusion, event_level = "second")
# A tibble: 13 x 3
   .metric              .estimator .estimate
   <chr>                <chr>          <dbl>
 1 accuracy             binary         0.575
 2 kap                  binary         0.150
 3 sens                 binary         0.445
 4 spec                 binary         0.705
 5 ppv                  binary         0.601
 6 npv                  binary         0.560
 7 mcc                  binary         0.155
 8 j_index              binary         0.150
 9 bal_accuracy         binary         0.575
10 detection_prevalence binary         0.37 
11 precision            binary         0.601
12 recall               binary         0.445
13 f_meas               binary         0.511
Introducere în Regresia în R

Acuratețe

summary(confusion) %>% 
  slice(1)
# A tibble: 3 x 3
  .metric  .estimator .estimate
  <chr>    <chr>          <dbl>
1 accuracy binary         0.575

Acuratețea reprezintă proporția predicțiilor corecte.

$$ accuracy = \frac{TN + TP}{TN + FN + FP + TP} $$

confusion
                  actual_response
predicted_response   0   1
                 0 141 111
                 1  59  89
(141 + 89) / (141 + 111 + 59 + 89)
0.575
Introducere în Regresia în R

Sensibilitate

summary(confusion) %>% 
  slice(3)
# A tibble: 1 x 3
  .metric .estimator .estimate
  <chr>   <chr>          <dbl>
1 sens    binary         0.445

Sensibilitatea reprezintă proporția pozitivelor reale.

$$ sensitivity = \frac{TP}{FN + TP} $$

confusion
                  actual_response
predicted_response   0   1
                 0 141 111
                 1  59  89
89 / (111 + 89)
0.445
Introducere în Regresia în R

Specificitate

summary(confusion) %>% 
  slice(4)
# A tibble: 1 x 3
  .metric .estimator .estimate
  <chr>   <chr>          <dbl>
1 spec    binary         0.705

Specificitatea reprezintă proporția negativelor reale.

$$ specificity = \frac{TN}{TN + FP} $$

confusion
                  actual_response
predicted_response   0   1
                 0 141 111
                 1  59  89
141 / (141 + 59)
0.705
Introducere în Regresia în R

Să exersăm!

Introducere în Regresia în R

Preparing Video For Download...