Detekce podvodů v R
Bart Baesens
Professor Data Science at KU Leuven
Nejlépe více než 1 000 čísel pokrývajících více řádů.
Data nemusí vždy Benfordův zákon splňovat.
Datová sada splňuje Benfordův zákon pro první dvě číslice, pokud pravděpodobnost, že první dvě číslice $D_1D_2$ jsou rovno $d_1d_2$, je přibližně:
$$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
Tento test je spolehlivější než test první číslice a nejčastěji se používá při odhalování podvodů.
bfd.cen <- benford(census.2009$pop.2009, number.of.digits = 2)
plot(bfd.cen)

expenses obsahuje 1 000 záznamů o náhradách.benford.analysis.bfd1.exp <- benford(expenses, number.of.digits = 1)
plot(bfd1.exp)

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

Detekce podvodů v R