Distinguish power-law and geometric (discrete exponential) distributions using RStan with bridge sampling.

• sim-pl.R: generate synthetic data that exhibits power-law with exponent $\alpha = 2$
• sim-exp.R: generate synthetic data that exhibits geometric distribution with $p=.2$

Generated data can be found in the data/ directory. Example data and their distributions can be found in the data-example/ directory.

• discrete-powerlaw.stan: Stan model for discrete power-law distribution
• discrete-exponential.stan: Stan model for geometric distribution
• stan-fit-sim-pl.R: fit the power-law model with data
• stan-fit-sim-exp.R: fit the geometric model with data
• model-comparison-pl.R: compute the Bayes factor of the two models using bridge sampling, with power-law distributed synthetic data
• model-comparison-exp.R: compute the Bayes factor of the two models using bridge sampling, with geometric distributed synthetic data

Results can be found in the results/ directory.

Rstan should give the posterior distributions for the power-law exponent $\alpha$ and the success probability $p$ for the geometric distribution.

When using model-comparison-pl.R with the power-law data, it should estimate the Bayes factor of the two models as Inf, meaning it strongly favors the power-law distribution.

When using model-comparison-exp.R with the geometric data, it should estimate the Bayes factor of the two models as 0.00000, meaning it strongly favors the geometric distribution.

Example results are in the results-example/ directory.

To reproduce the results, set up the environment in renv.lock with:

renv::restore()

Then use stu to build all results:

stu

Clean up the results with:

stu @clean

Alternatively, run the script run.sh to build the results:

./run.sh

• https://fabiandablander.com/r/Law-of-Practice.html (read with caution)