{"word_count": 532, "character_count": 4059}
Pendant mon séjour récent en Nouvelle Angleterre, j'ai survolé le livre de Leonard Mlodinow, the drunkard's walk. Et au hasard de mes lectures, je suis tombé sur la petite histoire suivanteAutrement dit, en utilisant les cinq derniers chiffres d'une quantité économique comme le us treasury balance, on aurait un générateur de nombre aléatoire...Par contre la suite est un peu plus surprenante,La loi de Benford (que j'avais pu évoquer ici ou là) parle des premiers chiffres, mais cette fois on parle deslast five digits. Donc visiblement l'évoquation n'est pas pertinente ici. Mais qui sait ? Ca reste malgré tout une histoire intéressante. Considérons - histoire de tester cette légende - les deux sources de données suivantes,http://treasurydirect.gov/ et http://economagic.com/. Sur ce dernier site, un petit travail de mise en forme des données est nécessaire.b1=read.table("http://freakonometrics.free.fr/debtus1.txt",   header=TRUE,sep="\t")b2=read.table("http://freakonometrics.free.fr/debtus2.txt",   header=TRUE)X1=as.character(b1$Dollar.Amount)n1=nchar(X1)Y1=substr(X1,n1-8,n1-3)X1=as.numeric(substr(Y1,1,2))*1000+as.numeric(substr(Y1,4,6))x=X1/100000X2=b2$DEBTY2=trunc(as.numeric(X2))X2=as.character(Y2)n2=nchar(X2)Y2=substr(X2,n2-4,n2)y=as.numeric(Y2)/100000y=y[y&#60;1]Pour rappel, un générateur aléatoire (standard) vérifie deux propriétés importantesles nombres doivent être tirés suivant une loi uniforme sur [0,1], i.e. ici, si on divise les nombres à 5 chiffres par 10000,les tirages doivent être indépendants entre eux.La première propriété semble assez naturelle, et correspond à l'histoire racontée dans un commentaire posté ici (expliquant comment un casino avait été au bord de la faillite car une roulette faisait sortir certains chiffres trop souvent, et j'essayais de comprendre comment utiliser l'information qu'un chiffre sort plus souvent). La seconde est probablement encore plus importante.Visualisation de la distributionLa première idée est de visualiser la densité de nos séries de chiffres. Pour éviter les problèmes de bord (et comme c'est juste en introduction) on va utiliser un histogramme, et pas une estimation à noyau.hist(x,col="red")hist(y,col="blue")On obtient pour la première série la courbe rouge, et pour la seconde la courbebleue,On note qu'a priori, pour la première série, l'hypothèse d'uniformité n'est peut être pas la plus réaliste...Test de Kolmogorov-SmirnovOn peut aussi mettre en œuvre un test de Kolmogorov-Smirnov afin de tester si la loi uniforme est adaptée.:&#62; ks.test(x,"punif") One-sample Kolmogorov-Smirnov test data:  x D = 0.1047, p-value = 0.01645alternative hypothesis: two-sided  &#62; ks.test(y,"punif") One-sample Kolmogorov-Smirnov test data:  y D = 0.0456, p-value = 0.3581alternative hypothesis: two-sidedOn retrouve ici confirmée l'intuition précédante: la loi uniforme est pertinente pour la seconde série, pas la première.Les autocorrélations de la sérieTravaillons uniquement sur la seconde série. On peut étudier l'autocorrélation de notre série de nombres, ou peut-être un peu plus malin, sur les quantiles gaussiens associés (les autocorrélations étant intéressantes pour les séries gaussiennes),:plot(acf(y))plot(acf(qnorm(y)))ie. pour la série bruteet pour la série normalisée,Bref, on pourrait être tenté de valider l'hypothèse d'indépendance entre les tirages.Run test (de Wald–Wolfowitz)L'idée est de comparer une série de chiffres à la médiane, s'ils sont plus grands, on note + (ou A) et sinon - (ou B). On crée alors une série du genre "+++−−++−−++++++−−−" et on compte les séries de + et les séries de -, les runs,library(lawstat)runs.test(y,plot=TRUE)Runs Test - Two sideddata:  yStandardized Runs Statistic = -0.2462, p-value = 0.8055Bref, la légende me semble à prendre avec des pincettes (car fonction de la source considérée), même si l'idée est intéressante (si l'on met de côté les aspects d'aléa moral). Et l'analyse sur la loi de Benford ne semble pas valide: les derniers chiffres sur les grands nombres ne se comportent pas du tout comme les premiers.