oopt = ani.options(interval = 0.1, nmax = 100)
op = par(mar = c(3, 3, 2, 0.5), mgp = c(1.5, 0.5, 0), tcl = -0.3)
sim.qqnorm()
par(op)
# HTML animation page
ani.options(ani.height = 500, ani.width = 500, nmax = 100,
interval = 0.1, title = "Demonstration of Simulated QQ Plots",
description = "This animation shows the QQ plots of random numbers
from a Normal distribution. Does them really look like normally
distributed?")
ani.start()
par(mar = c(3, 3, 1, 0.5), mgp = c(1.5, 0.5, 0), tcl = -0.3)
sim.qqnorm(n = 15, pch = 20, main = "")
ani.stop()
ani.options(oopt)
Run the code above in your browser using DataLab