1. 学ぶ
    2. /
  2. コース
    3. /
  3. R で学ぶクレジットリスク・モデリング
Connected

演習

ロス行列を含める

3つ目に、ロス行列を含めることで、デフォルト（延滞）を非デフォルトと誤分類することと、非デフォルトをデフォルトと誤分類することの相対的重要度を変えられます。ここでは、デフォルトを非デフォルトと誤分類するほうに、より大きなペナルティを与えたいとします。ロス行列の指定は、引数 parms に含めて行います。

parms = list(loss = matrix(c(0, cost_def_as_nondef, cost_nondef_as_def, 0), ncol=2))

この指定では、対角成分が0、対角外の成分に変更したロスペナルティを持つ 2×2 の行列を作成しています。デフォルトのロス行列では、対角外の成分はすべて1です。

指示

100 XP
  • 提示されたコードを、ロス行列を含むように変更し、実際のデフォルトを非デフォルトと誤分類した場合のペナルティが10倍になるようにしてください。これは cost_def_as_nondef を 10、cost_nondef_as_def を 1 に置き換えることで行えます。前の演習と同様に、rpart.control を含めて複雑度パラメータを 0.001 に緩和してください。
  • 決定木は、関数 plot に木オブジェクト名を渡して描画します。枝を等しい長さにするため第2引数に uniform = TRUE を追加し、text() に木オブジェクト名を渡してラベルを追加してください。