Penipuan dan analisis jejaring sosial

Deteksi Fraud di R

Bart Baesens

Professor Data Science at KU Leuven

Apakah penipuan fenomena sosial?

Intuisi: hubungan antar-orang
Adakah efek yang menunjukkan penipuan bersifat sosial?

Apakah penipuan fenomena sosial?

Pelaku penipuan cenderung berkelompok:
- menghadiri acara/kegiatan yang sama
- terlibat dalam kejahatan yang sama
- memakai sumber daya yang sama
- kadang orang yang sama (pencurian identitas)

Homofili

Homofili dalam jejaring sosial (sosiologi)
Orang cenderung bergaul dengan yang dianggap mirip.

Homofili dalam jaringan penipuan
Pelaku lebih mungkin terhubung dengan pelaku lain, dan pihak sah dengan pihak sah.

Homofili - penipuan jaminan sosial

Apakah jaringan mengandung pola homofili yang signifikan secara statistik?

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

homofili_jaringan

Pencurian identitas

Sebelum: orang menelepon kontak yang sering dihubungi

Pencurian identitas

Sebelum: orang menelepon kontak yang sering dihubungi

Sesudah: orang menelepon kontak baru yang kebetulan tumpang tindih dengan kontak orang lain

Kurir uang (money mule)

Money mule = orang yang mentransfer uang ilegal (mis. hasil curian)
Penerima transaksi penipuan
Mentransfer uang curian atas nama pihak lain (operator scam)

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"

Jaringan dengan kurir uang disorot

plot(network)

jaringan_mule

Ayo berlatih!

Deteksi Fraud di R