Create producing-an-animated-comet-plot-in-r.R