# create an animation page in the tempdir() and auto-browse it
# Brownian Motion
library(animation)
op = par(mar = c(3, 3, 2, 0.5), mgp = c(2, .5, 0), tcl = -0.3,
cex.axis = 0.8, cex.lab = 0.8, cex.main = 1)
brownian.motion(control = ani.control(interval = 0.05, nmax = 100))
par(op)
# Bootstrapping
boot.iid(interval = 0.3)
Run the code above in your browser using DataLab