R/Benf.val.R

In BeyondBenford: Compare the Goodness of Fit of Benford's and Blondeau Da Silva's Digit Distributions to a Given Dataset

Defines functions Benf.val

Documented in Benf.val

Benf.val <-
function(fig,dig=1){if(dig==1) {if (fig==0) return("First digit is all but 0") else return(log(1+1/fig,10))} 
			else {k=0; for (i in 10**(dig-2):(10**(dig-1)-1)) k=k+log(1+1/(10*i+fig),10); return(k);}}

Try the BeyondBenford package in your browser