Introduction.
oopt = ani.options(ani.height = 400, ani.width = 600, outdir = getwd(), interval = 2, nmax = 10, title = "Demonstration of the k-fold Cross Validation", description = "This is a naive demonstration for the k-fold cross validation. The k rectangles in the plot denote the k folds of data. Each time a fold will be used as the test set and the rest parts as the training set.") ani.start() par(mar = c(3, 3, 1, 0.5), mgp = c(1.5, 0.5, 0), tcl = -0.3) cv.ani(bty = "l") ani.stop() ani.options(oopt)