Rで学ぶ不正検知
Tim Verdonck
Professor Data Science at KU Leuven
目的
他ノードの挙動から、あるノードの挙動を予測する

課題

非関係モデル

関係モデル

前提

不正の確率
$$P(F | ?) = \frac{1 + 1}{1 + 1 + 1 + 1 + 1}=\frac{2}{5}= 40\%$$

不正の確率
$$P(F | ?) = \frac{1 + 2}{3 + 1 + 1 + 2 + 1}=\frac{3}{8}=37.5\%$$

vertex_attr(network) ## ノードは 1(不正)、0(非不正)、NA(不明)でラベル付け
$name
"?" "B" "C" "D" "E" "A"
$isFraud
NA 1 0 1 0 0
edge_attr(network) ## エッジには重みがあります$weight
2 3 1 1 1
## subgraph(): ノード「?」と不正ノードを含む部分グラフを作成 subnetwork <- subgraph(network, v = c("?", "B", "D"))## strength(): ノード「?」に隣接するエッジ重みの合計 prob_fraud <- strength(subnetwork, v = "?") / strength(network, v = "?")prob_fraud
0.375
Rで学ぶ不正検知