Tabelul de strategie și curba de strategie

Repetând calculele din exercițiul anterior pentru mai multe rate de acceptare, poți obține un tabel de strategie. Acesta poate fi un instrument util pentru bănci, oferindu-le o perspectivă mai clară pentru a defini o strategie de acceptare.

Știi deja cum să calculezi rata de risc pentru o anumită rată de acceptare, așa că funcția strategy_bank a fost scrisă și încărcată în spațiul tău de lucru pentru a accelera procesul. Această funcție calculează pragul de decizie și rata de risc pentru ratele de acceptare care sunt multipli de 5% (0%, 5%, 10%, …).

Acest exercițiu face parte din cursul

Modelarea riscului de credit în R

Vezi cursul

Instrucțiuni pentru exercițiu

Aruncă o privire asupra funcției strategy_bank.
Vectorul predictions_cloglog conține probabilitățile de nerambursare prezise folosind modelul cloglog din capitolul 2, iar vectorul predictions_loss_matrix conține probabilitățile de nerambursare prezise folosind arborele redus care include o matrice de costuri (construit anterior în capitolul 3). Aplică funcția strategy_bank fiecăruia dintre vectorii de predicții și atribuie-le numele strategy_cloglog, respectiv strategy_loss_matrix.
Tabelele de strategie pot fi obținute folosind numele obiectelor în combinație cu $table.
Curbele de strategie au fost trasate pentru tine. Curba de strategie a modelului bazat pe arbore prezintă un comportament destul de neobișnuit. Din cauza structurii arborilor de clasificare, există o probabilitate mai mare de apariție a unor „salturi" neașteptate. În plus, arborele cu o matrice de costuri era unul foarte mare, astfel că acest comportament ar putea fi rezultatul supraantrenării!

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# Have a look at the function strategy_bank


# Apply the function strategy_bank to both predictions_cloglog and predictions_loss_matrix



# Obtain the strategy tables for both prediction-vectors


# Plot the strategy functions
par(mfrow = c(1,2))
plot(strategy_cloglog$accept_rate, strategy_cloglog$bad_rate, 
     type = "l", xlab = "Acceptance rate", ylab = "Bad rate", 
     lwd = 2, main = "logistic regression")

plot(strategy_loss_matrix$accept_rate, strategy_loss_matrix$bad_rate, 
     type = "l", xlab = "Acceptance rate", 
     ylab = "Bad rate", lwd = 2, main = "tree")

Editează și rulează codul