vendor/bundle/ruby/2.4.0/gems/rouge-1.11.1/lib/rouge/demos/r - incubator-retired-amaterasu-site - Git at Google

 dbenford <- function(x){
     log10(1 + 1/x)
 }

 pbenford <- function(q){
     cumprobs <- cumsum(dbenford(1:9))
     return(cumprobs[q])
 }
	dbenford <- function(x){
	log10(1 + 1/x)
	}

	pbenford <- function(q){
	cumprobs <- cumsum(dbenford(1:9))
	return(cumprobs[q])
	}