Detecção de Fraudes em R
Tim Verdonck
Professor Data Science at KU Leuven
Objetivo
Prever o comportamento de um nó com base no comportamento de outros nós

Desafios

Modelo não relacional

Modelo relacional

Premissas

Probabilidade de fraude
$$P(F | ?) = \frac{1 + 1}{1 + 1 + 1 + 1 + 1}=\frac{2}{5}= 40\%$$

Probabilidade de fraude
$$P(F | ?) = \frac{1 + 2}{3 + 1 + 1 + 2 + 1}=\frac{3}{8}=37,5\%$$

vertex_attr(network) ## Os nós são rotulados como 1 (fraude), 0 (não é fraude) ou NA (desconhecido)
$name
"?" "B" "C" "D" "E" "A"
$isFraud
NA 1 0 1 0 0
edge_attr(network) ## As arestas têm peso$weight
2 3 1 1 1
## subgraph(): cria subgrafo contendo o nó "?" e todos os nós fraudulentos subnetwork <- subgraph(network, v = c("?", "B", "D"))## strength(): soma os pesos das arestas adjacentes ao nó "?" prob_fraud <- strength(subnetwork, v = "?") / strength(network, v = "?")prob_fraud
0.375
Detecção de Fraudes em R