This demo was written by me about three months ago when I was illustrating the algorithm of Gradient Descent in the class of “Data Mining & Machine Learning”. I like to combine iterations (or loopings) with animated pictures, because it’s simple and heuristic, and of course, it’s easy in R: just use Sys.sleep() to control the time of steps of your demonstration and some low-level graphics functions such as lines(), points(), rect(), polygon() and segments(), etc to illustrate the process of your algorithm. To understand the figure below, you need to be clear about what’s contour plot.
Below is the code for the above example, and it has been included in the animation package as the grad.desc() function:
op = par(
pty = "s", mar = c(2, 1, 2, 0), cex.axis = 0.75, cex.main = 0.85
)
x2 = x1 = seq(-2 * pi, 2 * pi, 0.1)
f = function(x, y) x^2 + 3 * sin(y)
contour(x1, x2, outer(x1, x2, f), col = "red", main = "")
mtext(side = 3, expression(z == x[1]^2 + 3 * sin(x[2])))
for (i in 1:3) {
x = unlist(locator(1))
s = 0.05
newx = x - s * c(2 * x[1], 3 * cos(x[2]))
eps = 0.001
gap = abs(f(newx[1], newx[2]) - f(x[1], x[2]))
while (gap > eps) {
arrows(x[1], x[2], newx[1], newx[2], length = 0.075, col = "blue")
x = newx
newx = x - s * c(2 * x[1], 3 * cos(x[2]))
gap = abs(f(newx[1], newx[2]) - f(x[1], x[2]))
Sys.sleep(gap/3)
}
}
par(op)