Predecir la probabilidad de impago
En el vídeo viste la probabilidad de impago predicha para un caso del conjunto de prueba. Por suerte, puedes predecir la probabilidad para todos los casos del conjunto de prueba a la vez usando la función predict().
Después de obtener todas las predicciones para los elementos del conjunto de prueba, es útil hacerte una idea inicial de lo bien que el modelo discrimina mirando el rango de las probabilidades predichas. Un rango pequeño significa que las predicciones de los casos del conjunto de prueba no están muy separadas y, por tanto, el modelo podría no discriminar bien entre buenos y malos clientes. Con porcentajes de impago bajos, verás que, en general, se predicen probabilidades de impago muy bajas. Es momento de echar un vistazo a un primer modelo.
log_model_small está cargado en el espacio de trabajo.
Este ejercicio forma parte del curso
Modelización del riesgo de crédito en R
Instrucciones del ejercicio
- El código de la predicción de
test_casedel vídeo está copiado en tu espacio de trabajo. Cambia el código para que la funciónpredict()se aplique a todos los casos detest_set. Puedes guardarlas en el objetopredictions_all_small. - Consigue una idea inicial de la capacidad de discriminación del modelo usando
range()
ejercicio interactivo práctico
Prueba este ejercicio completando este código de ejemplo.
# Make PD-predictions for all the test set elements using the "log_model_small" logistic regression model
predictions_all_small <- predict(log_model_small, newdata = test_case, type = "response")
# Look at the range of the object "predictions_all_small"