Regresión logística: probabilidad de esperar más de 30 min
(espera_larga = 1 si la espera supera 30 min)
Call:
glm(formula = espera_larga ~ hora + age + scheduling_interval +
sex + dia, family = "binomial", data = train_data)
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -2.7582956 0.0475526 -58.005 < 2e-16 ***
hora 0.2396137 0.0029433 81.411 < 2e-16 ***
age -0.0001938 0.0004062 -0.477 0.63325
scheduling_interval 0.0030095 0.0013097 2.298 0.02157 *
sexMale -0.0002321 0.0166687 -0.014 0.98889
diamartes -0.0755080 0.0256002 -2.950 0.00318 **
diamiércoles -0.1254380 0.0255584 -4.908 9.21e-07 ***
diajueves -0.0161877 0.0255854 -0.633 0.52694
diaviernes -0.1836635 0.0255225 -7.196 6.19e-13 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 95031 on 68825 degrees of freedom
Residual deviance: 87642 on 68817 degrees of freedom
AIC: 87660
Number of Fisher Scoring iterations: 4
Exactitud en datos de prueba (20 %): 64,9 %
Referencia (predecir siempre la clase más frecuente): 53,9 %