Here is a Shiny online animation of Galton’s Two Stage Quincunx which allows sample sizes of one to five.
https://galtonbayesianmachine.shinyapps.io/GaltonBayesianMachine/
Here is experimental R code used to make the animations which Shiny displays. (Warning it will create HTML files in the default directory and currently won’t work for all combinations of levels in the machines and sample sizes.)
Reference: Stigler, Stephen M. 2010. Darwin, Galton and the statistical enlightenment. Journal of the Royal Statistical Society: Series A 173(3):469-482 http://onlinelibrary.wiley.com/doi/10.1111/j.1467-985X.2010.00643.x/abstract
Some slides on a fictionalized historical account for a non-technical audience.
An R Demo program for simple one sample binary outcomes with rejection and importance sampling methods and calculation of interval coverage averaged over the prior.
phaneron0 