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 中的欺诈检测