Bedrägeridetektering i R
Bart Baesens
Professor Data Science at KU Leuven
Helst fler än 1 000 tal som sträcker sig över flera storleksordningar.
Tänk på att data inte alltid följer Benfords lag.
En datamängd följer Benfords lag för de två första siffrorna om sannolikheten att de två första siffrorna $D_1D_2$ är lika med $d_1d_2$ approximativt ges av:
$$P(D_1D_2=d_1d_2)=\log\left(1+\frac{1}{d_1d_2}\right) \qquad d_1d_2\in [10, 11, ..., 98, 99]$$
benlaw <- function(d) log10(1 + 1 / d)
benlaw(12)
0.03476211
Detta test är mer tillförlitligt än testet för första siffran och används oftast vid bedrägeridetektering.
bfd.cen <- benford(census.2009$pop.2009, number.of.digits = 2)
plot(bfd.cen)

expenses innehåller 1 000 ersättningsärenden.benford.analysis.bfd1.exp <- benford(expenses, number.of.digits = 1)
plot(bfd1.exp)

bfd2.exp <- benford(expenses, number.of.digits = 2)
plot(bfd2.exp)

Bedrägeridetektering i R