Calculate Benford's Law in QlikView

QlikView_Calculate_Benford_s_Law.qvs

//QlikView Script, Load the distribution of first digits, according to Benford's law, as Data Island:
Benford:
LOAD FirstDigit, log10(FirstDigit+1) - log10(FirstDigit) as OccurancePct;
LOAD RecNo() as FirstDigit AutoGenerate(9);
 
//***********************************************************************************
//Chart
//Dynamic Dimension;
=ValueList(1,2,3,4,5,6,7,8,9)
 
//Benford's Expression:
=pick(match(ValueList(1,2,3,4,5,6,7,8,9),1,2,3,4,5,6,7,8,9),
Only({<FirstDigit={1}>} OccurancePct),
Only({<FirstDigit={2}>} OccurancePct),
Only({<FirstDigit={3}>} OccurancePct),
Only({<FirstDigit={4}>} OccurancePct),
Only({<FirstDigit={5}>} OccurancePct),
Only({<FirstDigit={6}>} OccurancePct),
Only({<FirstDigit={7}>} OccurancePct),
Only({<FirstDigit={8}>} OccurancePct),
Only({<FirstDigit={9}>} OccurancePct))
 
//Actual Expression:
=pick(match(ValueList(1,2,3,4,5,6,7,8,9),1,2,3,4,5,6,7,8,9),
count({$<YourField = {"=left(text(fabs(YourField*100000)),1)=1"}>} YourField) / count({$ - <YourField = {0}>} TOTAL left(text(fabs(YourField*100000)),1)),
count({$<YourField = {"=left(text(fabs(YourField*100000)),1)=2"}>} YourField) / count({$ - <YourField = {0}>} TOTAL left(text(fabs(YourField*100000)),1)),
count({$<YourField = {"=left(text(fabs(YourField*100000)),1)=3"}>} YourField) / count({$ - <YourField = {0}>} TOTAL left(text(fabs(YourField*100000)),1)),
count({$<YourField = {"=left(text(fabs(YourField*100000)),1)=4"}>} YourField) / count({$ - <YourField = {0}>} TOTAL left(text(fabs(YourField*100000)),1)),
count({$<YourField = {"=left(text(fabs(YourField*100000)),1)=5"}>} YourField) / count({$ - <YourField = {0}>} TOTAL left(text(fabs(YourField*100000)),1)),
count({$<YourField = {"=left(text(fabs(YourField*100000)),1)=6"}>} YourField) / count({$ - <YourField = {0}>} TOTAL left(text(fabs(YourField*100000)),1)),
count({$<YourField = {"=left(text(fabs(YourField*100000)),1)=7"}>} YourField) / count({$ - <YourField = {0}>} TOTAL left(text(fabs(YourField*100000)),1)),
count({$<YourField = {"=left(text(fabs(YourField*100000)),1)=8"}>} YourField) / count({$ - <YourField = {0}>} TOTAL left(text(fabs(YourField*100000)),1)),
count({$<YourField = {"=left(text(fabs(YourField*100000)),1)=9"}>} YourField) / count({$ - <YourField = {0}>} TOTAL left(text(fabs(YourField*100000)),1)))