## Please do not abuse the Rweb service provided by Tama University ## to get over the restriction (don't do anything evil by this trick!!) source2 = get("source") source2("http://bit.ly/hJVXQb") ani.options(outdir = "/tmp") ## see the R package animation for help on saveHTML() saveHTML({ for (i in 1:30) plot(rnorm(100), pch = 19, ylim = c(-3, 3), col = heat.colors(100)) }, img.name = sprintf("demo_%s", paste(sample(letters, 3), collapse = '')), ani.height = 600, ani.width = 600, interval = 0.3)