1. Learn
    2. /
  2. Courses
    3. /
  3. Modelowanie ryzyka kredytowego w R
Connected

Exercise

Obliczanie wskaźnika złych kredytów dla ustalonego współczynnika akceptacji

W lekcji wideo nauczyłeś(-aś) się, jak obliczać wskaźnik złych kredytów (czyli odsetek niespłaconych pożyczek) w portfelu kredytowym banku, mając dane:

  1. konkretny model
  2. współczynnik akceptacji

W tym ćwiczeniu obliczysz wskaźnik złych kredytów, jakiego bank może się spodziewać, używając przyciętego drzewa ptree_prior dopasowanego wcześniej oraz współczynnika akceptacji wynoszącego 80%. Dla przypomnienia – drzewo jest wyświetlone po prawej stronie ekranu.

Instructions

100 XP
  • W skrypcie znajdziesz gotowy kod do generowania predykcji prawdopodobieństwa niewywiązania się ze zobowiązania przy użyciu przyciętego drzewa i zbioru test_set. Pamiętaj, że przy użyciu funkcji predict() dla drzewa prawdopodobieństwo niewywiązania się ze zobowiązania znajduje się w drugiej kolumnie – dlatego do wywołania predict() dodano [,2].
  • Wyznacz punkt odcięcia odpowiadający współczynnikowi akceptacji 80%, korzystając z prob_default_prior. Możesz użyć funkcji quantile(), ustawiając drugi argument na wartość 0.8. Przypisz wynik do obiektu o nazwie cutoff_prior.
  • Kod do uzyskania binarnych predykcji niewywiązania się ze zobowiązania (0 lub 1) jest już dostarczony – używa funkcji ifelse(). Nadaj obiektowi nazwę bin_pred_prior_80.
  • Kod do wyboru wskaźników niewywiązania się ze zobowiązania z test_set dla zaakceptowanych pożyczek przy 80% współczynniku akceptacji jest już dostarczony.
  • Oblicz odsetek niespłaconych pożyczek (czyli „wskaźnik złych kredytów") dla zaakceptowanych pożyczek. Jest to liczba wystąpień wartości 1 w accepted_status_prior_80 podzielona przez łączną liczbę elementów tego wektora. Wyświetl wynik w konsoli R.