Wikipedia, retrieved 08/26/2011
Simulazione con R:
library(MASS)
benford <- function(m, n){
list <- c()
# calcola tutti i valori m^n, per n= 1, 2, ..., i, ..., n
for(i in 1:n){
list[i] <- m^i
}
# funzione per estrarre la prima cifra di un numero
bben <- function(k){
as.numeric(head(strsplit(as.character(k),'')[[1]],n=1))
}
# estrazione della prima cifra dei valori calcolati
first.digit <- sapply(list, bben)
# plot delle frequenze della prima cifra
truehist(first.digit, nbins=10, main=m)
}
par(mfrow=c(2,2))
benford(2,1000)
benford(3,640)
benford(4,500)
benford(5,440)
Nessun commento:
Posta un commento