## Animations generated in R version 3.6.1 (2019-07-05)
##   using the package animation
library(animation)
xs <- seq(-2, 2, len = 100)
oopt <- ani.options(interval = 0.2, nmax = 5, autobrowse = FALSE)
for (i in 1:ani.options("nmax")) {
    plot(dnorm(xs, 0, 1/i), type = "l")
    ani.pause()
}
ani.options(oopt)
## R version 3.6.1 (2019-07-05)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Other packages: animation 2.6