oopt = ani.options(interval = 0.1, nmax = 300)
opar = par(mar = rep(0.5, 4))
BM.circle(cex = 2, pch = 19)
ani.options(ani.height = 450, ani.width = 450,
interval = 0.05, nmax = 100, title = "Brownian Motion in a Circle",
description = "Brownian Motion in a circle.")
ani.start()
par(mar = rep(0.5, 4))
BM.circle(cex = 2, pch = 19)
ani.stop()
par(opar)
ani.options(oopt)
Run the code above in your browser using DataLab