test/extreme_simulation.R

In UMeforensics/eforensics_public: Election Forensics: Positive Empirical Models of Election Fraud

### Extreme Data ###
library(eforensics);

model = 'bl'
sim_data = ef_simulateData(n=10000, nCov=20, model=model)
data = sim_data$data
mcmc = list(burn.in=100, n.adapt=100, n.iter=1000, n.chains=2)
samples = eforensics(w ~.-a, a ~ .-w,  data=data, model=model, mcmc=mcmc, elegible.voters=10)
print(summary(samples));