# NOT RUN {
set.seed(1)
x <- rnorm(100)
# Bayesian digit analysis against Benford's law
distr.btest(x, check = 'first', reference = 'benford')
# Bayesian digit analysis against Benford's law, custom prior
distr.btest(x, check = 'first', reference = 'benford', alpha = 9:1)
# Bayesian digit analysis against custom distribution
distr.btest(x, check = 'last', reference = rep(1/9, 9))
# }
Run the code above in your browser using DataLab