library(animation)

oopt = ani.options(interval = 3, nmax = 15)
cv.ani(main = "Demonstration of the k-fold Cross Validation", bty = "l")

## leave-one-out CV
cv.ani(x = runif(15), k = 15)