data("measlesWeserEms")
## sequential plot of the counts by region in weeks 12-16 only (for speed)
if (require("animation")) {
saveHTML(animate(measlesWeserEms, tps=12:16, cumulative=FALSE),
outdir = tempdir(), htmlfile = "measles.html",
title = "Evolution of the measles epidemic in the Weser-Ems region",
ani.width=500, ani.height=600)
}
Run the code above in your browser using DataLab