Bedrägeri och sociala nätverksanalyser

Bedrägeridetektering i R

Bart Baesens

Professor Data Science at KU Leuven

Är bedrägeri ett socialt fenomen?

Intuition: relationer mellan personer
Finns det mönster som tyder på att bedrägeri är ett socialt fenomen?

Är bedrägeri ett socialt fenomen?

Bedragare tenderar att klustras tillsammans:
- deltar i samma evenemang/aktiviteter
- är inblandade i samma brott
- använder samma resurser
- är ibland samma person (identitetsstöld)

Homofili

Homofili i sociala nätverk (från sociologi)
Människor tenderar starkt att umgås med andra som de uppfattar som lika sig själva.

Homofili i bedrägerinätverk
Bedragare är mer benägna att vara kopplade till andra bedragare, och legitima personer är mer benägna att vara kopplade till andra legitima personer.

Homofili – socialförsäkringsbedrägeri

Innehåller nätverket statistiskt signifikanta homofilirnönster?

assortativity_nominal(network, types = V(network)$isFraud, directed = FALSE)

networkhomophily

Identitetsstöld

Innan: personen ringer sina vanliga kontakter

Identitetsstöld

Innan: personen ringer sina vanliga kontakter

Efter: personen ringer nya kontakter som råkar överlappa med en annan persons kontakter

Penningmålvakter

Penningmålvakt = person som överför pengar som förvärvats olagligt (t.ex. stulna)
Mottagare av en bedräglig transaktion
Överför stulna pengar för någon annans räkning (bedragare)

V(network)$name

"ID02" "ID11" "ID04" "ID03" "ID08" ... "ID16" "ID10" "ID07"

print(list_money_mules)

"ID01" "ID02" "ID03" "ID04"

V(network)$isMoneyMule <- ifelse(V(network)$name %in% list_money_mules, TRUE, FALSE)

V(network)$color <- ifelse(V(network)$isMoneyMule, "darkorange", "lightblue")

vertex_attr(network)

$isMoneyMule
TRUE FALSE  TRUE  TRUE FALSE ... FALSE FALSE FALSE
$color
"darkorange" "lightblue" "darkorange" ... "lightblue" "lightblue"

Nätverk med markerade penningmålvakter

plot(network)

mule_network

Nu kör vi en övning!

Bedrägeridetektering i R