inst/examples/quincunx2-ex.R

In yihui/animation: A Gallery of Animations in Statistics and Utilities to Create Animations

set.seed(123)
oopt=ani.options(nmax = ifelse(interactive(), 200 + 15 -2, 2), interval = 0.03)
freq = quincunx2(balls = 200, col.balls = rainbow(200))

## frequency table
barplot(freq$top, space = 0) # top layers
barplot(freq$bottom, space = 0) # bottom layers

## HTML animation page
saveHTML({
  ani.options(nmax = ifelse(interactive(), 200 + 15 -2, 2), interval = 0.03)
  quincunx2(balls = 200, col.balls = rainbow(200))
}, img.name='quincunx2', htmlfile='quincunx2.html',
         ani.height = 500, ani.width = 600,
         single.opts = paste("'controls':", "['first', 'previous', 'play', 'next', 'last', 'loop', 'speed'],", "'delayMin': 0"),
         title = 'Demonstration of the Galton Box',
         description = c('Balls', 'falling through pins will show you the Normal',
                         'distribution.'))

ani.options(oopt)