@@ -0,0 +1,8 @@
dbenford <- function(x){
log10(1 + 1/x)
}
pbenford <- function(q){
cumprobs <- cumsum(dbenford(1:9))
return(cumprobs[q])
The note is not visible to the blocked user.